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Introduction 


Most computer puzzles are versions of ordinary word games, such as 
crossword puzzles or anagrams, that draw their vocabulary from the world 
of computing. The puzzles here are different. They provide games, amuse¬ 
ments, and challenges from within the world of computing itself and 
require some familiarity with Atari BASIC. The puzzles in this first volume 
are quite simple; however, we plan additional volumes with more complex 
and sophisticated puzzles. You do not have to be a computer buff or a 
skillful programmer to solve them. In fact, they would be an ideal comple¬ 
ment to any text or reference manual for a person of any age who is just 
learning BASIC and is beginning to feel the power of creating programs. 

We have not included any PEEKS or POKEs in the puzzles and have not 
used programs longer than 15 lines. These puzzles are designed to help you 
think in BASIC, learn to read a program, and understand something about 
program structure. All the commands in the book are included in the ATARI 
BASIC Reference Manual or in any introductory text on BASIC. Since the 
programs are not that long or complex (though some are tricky and not 
easy to solve automatically), many can be done with a paper and pencil. In 
fact, it's a good idea to try to think through many of these problems 
without using your computer. Program design is a mental activity that is 
computer-assisted and working on computer problems without using a 
computer can help develop that skill. In order to help you sketch out 
solutions, we’ve provided some formats designed to help with problem 
solving. They are in the Appendix to the book and you should feel free to 
copy them. 

There are five different types of problems in the book: Error State¬ 
ment Problems, Line Scrambles, Line Number Scrambles, Missing Code 
Lines, and Control Character Graphics Design Problems. Some of the pro¬ 
grams deal with numbers: others deal with words. Color and graphics are 
often used. The programs have been selected to illustrate certain aspects of 
Atari BASIC such as nested loops, subroutines, branching, and the mix of 
graphics, words, and numbers. You might even find it useful to incorporate 
some of the smaller programs into larger programs you build yourself. 

The answers to the programs will provide explanations of what the 
program does and give hints that might help you solve other problems. 
They will also give you a correct program. Remember, however, that 
often there is more than one correct answer and, if you feel correct. 
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run your program. If it works you have come up with another 
solution!! 

Here is a simple example that should give you a sense of the different 
types of puzzles in the book-. 


lO PRINT “ON A SCALE OF 1 TO 10" 

20 PRINT "HOW DO YOU FEEL TODAY?" 

30 PRINT “1 IS MISERABLE,10 GREAT" 

40 INPUT X 

50 IF X>5 THEN PRINT "HAVE FUN!":END 
60 PRINT "MAYBE THIS WILL HELP..":FOR 
X-l TO 400:NEXT X 
70 GRAPHICS 7:COLOR 1 
80 PLOT 0,0 

90 DRAWTO RND<1)#159,RND(1)*80 
lOO GOTO 80 


This program asks how you feel on a scale of 1 to 10, 1 being misera¬ 
ble and 10 great. If you answer with a number above 5 the computer prints 
"HAVE FUN!” and the program ends. If you answer 5 or less and indicate 
you are not feeling too great, the computer goes into a Graphics mode (line 
70) and draws an unending series of rays of different length emanating 
from the upper left of the screen (point 0.0). It gives the appearance of a 
sun and tries to cheer you up. 

To let you know what a program is supposed to do we have provided 
screen pictures or, as they are usually called, screen dumps to illustrate the 
program as it is supposed to run. Here are two screen dumps of the sample 
program: 


RUN 

ON A 5CALF. OP X TO 10 
HOW DO YOU PEEL TODAY? 

X IS MISERABLE, 1 0 GREAT 
? 6 

HAVE PUN I 

READY 

RUN 

ON A SCALE OP X TO XO 

HOW DO YOU PEEL TODAY? 

X IS MISERABLE,XO GREAT 

?X© 

HAVE PUN! 

READY 

RUN 

ON A SCALE OP X TO XO 

HOW DO YOU PEEL TODAY? 

X IS MISERABLE,XO GREAT 

?5 

MAYBE THIS WILL HELP.. 
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This program can also illustrate the nature of different puzzle types in 
this book. 


Error Puzzles 

In these puzzles, there will be some error for you to figure out. It could be 
on line 90, for example, which would then read: 

90 error DRAWTO RND(l)*159;RND(1)*80 

The error would be the ; between 159 and the second RND. It should 
be a , or the program wouldn't work. 

Here's another possible error. Can you figure it out? 

30 error PRINT "1 IS MISERABLE,10 GREAT 

You probably guessed that the error was the missing " at the end of 
the line. 


Single Line Scrambles 

In these puzzles, one line is all scrambled up. You have to unscramble it to 
make the program work. Here's a scramble of line 50: 

50 error PRINT 5 THEN >~x~ END FUN IF : HAVE 
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The screen dumps will give you the clues needed to unscramble the 
line and make the program work. 


Line Number Scrambles 

Instead of just scrambling a line these puzzles mix up all the line numbers. 
You have to renumber each line to put the program in order and have it run 
as planned. This requires some thought and experimentation and it is here 
that you are likely to find more than one correct unscrambling of a 
program. 

A very simple scramble would just reverse all of the line numbers so 

that 

line 10 becomes line 100 
line 20 becomes line 90 
line 30 becomes line 80 
etc. 

However, you are not likely to come upon such patterned scrambles. 
The line number patterns do not provide hints to the unscrambling of the 
lines. You have to think through to the program structure to solve the 
puzzle. 


Missing Line Puzzles 

In this variant of program puzzles, one line of code is missing. It might be in 
our sample: 

40 PRINT "?????????????" 

or 

80 PRINT "?????????????" 


PRINT “????????????? • j S -the indicator of the missing code line. 
That does not mean that PRINT,", or ? necessarily appear on the missing 
line. 
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Control Graphics Puzzles 

In addition to its usual graphics modes your Atari has a control character 
graphic set. You can get this set by holding down the control (CTRL) key 
and pressing any of the keys. (Consult your ATARI BASIC Reference 
Manual for a diagram of the Control Graphics Keyboard). 

These characters can be combined to make interesting patterns and 
drawings. They can also be used within your program. Here’s a short pro¬ 
gram that produces a fancy design using control character graphics: 



10 PRINT fill 

20 GOTO TO ' 


The puzzles provide various challenging patterns for you to reproduce, 
fill in, or reconstruct. Here are some samples using the little program above: 
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5 REM REPLACl THE 


1 S BY CONTROL 


B REM CHARACTERS TO MAKE THE DESIGN 

10 PRINT ""V-rfV-r???? J -H * 1 1 ■■ ; 

20 GOTO 10 

LIST 

O REM SAMPLE.2 

5 REM REPLACE THE ?'S BV CONTROL 

B REM CHARACTERS TO MAKE THE DESIGN 

IO PRINT 
20 GOTO IO 


Now that you have a sense of the kinds of challenges in this book, try 
your hand at solving them. Each section begins simply and then moves on 
to more complex demands. The answers and their explanations are at the 
end of each chapter. Hope you have as much fun solving the puzzles as I had 
inventing them. 
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or 





O ne of the most frustrating things about learning to program a 
computer is that you can work hard at a program and make a tiny 
mistake that throws the whole thing off. It is particularly annoying if you 
have not internalized the programming language you are using. This first 
section contains some puzzles that embody the simplest mistakes every¬ 
body makes when learning to program. These mistakes should be looked at 
as puzzles to solve rather than as signs of your inability to master 
computing. 
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- 1 - 

A SIMPLE CRYSTAL BALL 

This program asks whether you like the number 3 or 4 better. When run. 
this is how it is supposed to respond: 


riin 


UH IC 

H 

NUMBER 

IS 

YO 

UR 

r a 

V O R I T F 

OF T 

?:? 

HE 

SE TWO : 

; 3 

OR 

4 

.rj. 


YOU 

H A 

VE MYSTICAL 

POWER 

S . 

READ 

RUN 

Y 







WHIG 

H 

NUMBER 

IS 

YO 

UR 

FA 

OORT T E 

OF T 

HE 

SE TWO; 

: 3 

OR 

4 

? 


? 4 
YOU 

OR 

E DEEP 

AN 

l> I 

NT 

U I T 

I O E 


READY 


However, your program simply bombs when you input the number 3. 
It seems OK if you input 4: 


RUN 

WHI C H N U MB E R 

I S 

YOUR 

F A 

MORITE 

OF THESE T WO : 
7 3 

3 

OR 4 

? 


READY 

RIIN 

WHICH NUMBER 

IS 

YOUR 

FA 

yORITE 

OF THESE T WO ; 

?4 

; 3 

OR 4 



YOU ARE DEEP 

AND 

I N T UIT 

IOE 

READY 

■ 
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Here is the program. What is the mistake? 


lO PRINT "WHICH NUMBER IS YOUR FAVORIT 
E“ 

20 PRINT "OF THESE TWO: 3 OR 4 ?" 

30 INPUT X 

40 IF X-3 THEN SOTO 1010 

SO IF X-4 THEN SOTO 1500 

lOOO PRINT "YOU HAVE MYSTICAL POWERS." 

1010 END 

1500 PRINT "YOU ARE DEEP AND INTUITIVE 


1510 END 
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How could you change this program to give you the full sun? 


10 GRAPHICS 7:COLOR 1 
20 PLOT 80,40 

30 DRANTO RND(1)*139,RND(1)*40 
40 GOTO 20 
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- 3 - 

COUNT DRACULA 

You write a simple program asking your friend’s name. You want the 
computer to tell your friend that he or she is a nice person. One of your 
friends decides to play around and type in Count Dracula and here is what 
happens with your program: 


10 PRINT "WHAT IS YOUR NAME?" 

20 DIM A*(10) 

30 INPUT A* 

40 PRINT "YOU ARE A NICE BENTLE PERSON 

11 

SO PRINT M 


MHAT IS YOUR NAME*? 

’COUNT DRACULA 
YOU ARE A NICE GENTLE. 

COUNT DRAC 

READY 


PERSON 


How can you fix your program so that it gives Dracula his full compli¬ 
ments like this? 
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WHAT IS YOUR NAME? 

?COUNT DR AC 111. A 

YOU ARC A NICE GENTLE PERSON 

COUNT DRACUL.A 

READY 



ms 


-4- 

ALL I WANT IS A SQUARE 

You try to draw a square in Graphics 7 and instead you get the following: 


lO GRAPHICS 7:COLOR 1 

PRINT "HERE IS A SQUARE" 
PLOT 40,40:DRANTO 60,40 
DRANTO 60,60:DRANT0 60,40 
DRAHTO 40,40 



So you try to modify the program and you get: 


10 QRAPHIC8 7:COLOR 4 
20 PRINT "HERE IS A SQUARE" 
30 PLOT 40,40:DRANTO 60,40 
40 DRANTO 60,60:DRANTO 40,60 
SO DRANTO 40,40 


IS 



HERE IS A SQUARE 
READY 


All you really want is this: 


HERE IS A SQUARE 
READY 


How do you do it and what went wrong with the other two 
programs? 
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-5- 

IN FIVE YEARS 

This simple program is supposed to ask a person's age and then tell them 
how old they will be in five years. It should run like this: 


MOM OLD 

? 1 2 

IN FIVE 
A 2 

REDDY 


ARE YOU? 

YEARS YOU HILL BE 


Instead it runs like this: 


HOM OLD ARE YOU? 

? 12 

IN FIVE YEARS YOU MILE BE 

S 

READY 
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Here’s the program. Where’s the error? 


10 PRINT "HON OLD ARE YOU?" 

20 INPUT A 

30 PRINT "IN FIVE YEARS YOU WILL BE" 
40 PRINT X+S 
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FILLING THE SCREEN 

This is a reverse puzzle. Here is a program that will progressively fill the 
screen up from top to bottom and left to right. 


10 BRAPHICS 7:COLOR 1 
20 FOR X«1 TO 139 
30 FOR Y-l TO 80 
40 PLOT X,Y 
SO NEXT X 
60 NEXT Y 


Now here is a screen dump of the program stopped in midcourse. If it 
were left running the whole screen would be full. 



Now here are two screen dumps of programs that almost do what the 
first program does. A simple error, however, leads to a totally different 
structure on the screen. Notice that these programs lead to ERROR state¬ 
ments. Can you redo the correct program above to create these two 
ERROR statements and their associated screens? 
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Error 6A 


141 AT LIME 40 


Error 6B 



ERROR 


1 3 A r 


LINE 


60 



Answers 


- ! - 

At line 40 you instructed the program to GOTO line 1010 which ended the 
program. You always have to be careful that your refer your program to 
exactly the lines you want, and it makes sense to check all GOTO state¬ 
ments if you have a program that doesn't run properly. Here's the program 
with the intended reference: 


10 PRINT "WHICH NUMBER IS YOUR FAVORIT 
E" 

20 PRINT "OF THESE TWO: 3 OR 4 ?" 

30 INPUT X 

40 IF X-3 THEN GOTO lOOO 

SO IF X-4 THEN SOTO 1300 

lOOO PRINT “YOU HAVE MYSTICAL POWERS." 

1010 END 

1500 PRINT "YOU ARE DEEP AND INTUITIVE 

11 

1310 END 


- 2 - 

The problem was at line 30. You only used half the screen. You have to be 
careful about the screen dimensions of the Graphics modes you are pro¬ 
gramming in. At line 30, the number 40 should be 80 as in this program: 


10 GRAPHICS 7:COLOR 1 
20 PLOT 80,40 

30 DRAWTO RND(1)* 159,RND <1)*80 
40 GOTO 20 
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- 3 - 

Here is a program that will give Dracula his due: 

10 PRINT "WHAT IS YOUR NAME?" 

20 DIM A*(23) 

30 INPUT A* 

40 PRINT "YOU ARE A NICE GENTLE PERSON 

M 

30 PRINT A* 

Notice that at line 20 the DIM A$(10) has been changed to DIM 
A$(25). When you are storing words in Atari BASIC it is very important to 
make sure that you make your dimension statement large enough to 
contain the largest response you expect. The program, as changed for 
Dracula, wouldn't work if your friend's name was John Wellington Smith 
Frankenstein. Sometimes it makes sense if you are not writing too long a 
program to overdimension your variables in order to anticipate your friends' 
tricks. DIM A$(100) couldn't hurt in this case. 
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Here is the program: 


lO GRAPHICS 7:COLOR 1 
20 PRINT "HERE IS A SQUARE" 
30 PLOT 40,40:DRAWTO 60,40 
40 DRAWTO 60,60:DRAWTO 40,60 
30 DRAWTO 40,40 


In one case, you made mistakes with the coordinates you drew. It is 
often useful to sketch out a drawing on graph paper before trying to put 
coordinates in a program. 

In the other case, you used COLOR 4 in your program. If you look in 
your Atari reference manual you'll see that the number 4 doesn't work with 
the COLOR command and so nothing happened. It's important to play with 
COLOR and to PLOT around to get familiar with your Graphics 7 screen. 
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5 


10 PRINT "HOW OLD ARE YOU?" 

20 INPUT X 

30 PRINT "IN FIVE YEARS YOU WILL BE" 

40 PRINT X+5 

Notice that in the error program you INPUT A and then added +5. However, 
there was no X to add anything with and your variables did not agree so the 
computer printed 5 no matter what age was entered. When line 20 was 
changed to 20 INPUT X the program worked. It is essential to check all of 
your variables and see that they are properly referenced to each other. This 
is a basic principle of programming. 
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6A: 

lO GRAPHICS 7:COLOR 1 
20 FOR X-l TO 80 
30 FOR Y-l TO 139 
40 PLOT X,Y 
30 NEXT Y 
60 NEXT X 

Error 141 says that the cursor in the program is out of range for the 
program—that is you have sent it off the screen and bombed the program. 
If you look at program 6A you’ll see that you plotted Y (the row) to go up 
to 159 and it can only go up to 80. Here is a good example of a nested loop 
error. The program works the following way: 

1 —Plot the first X 

2— Plot the first 159 Y's 

3— Plot the second X 

4— Plot the first 159 Y's again 

5— Plot the third X 

6— Plot the first 159 Y's again 

etc. for 159 times through the loop. 
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This program never gets beyond the second step. It plots 1, Y for Y=1 
to 80 giving you the line on the left of the screen. As soon as it gets to the 
point 0,81 the cursor runs off the screen and you get the ERROR state¬ 
ment. It is essential to check the references of the points you plot in a 
program to be sure that they do not exceed the number of points in the 
Graphics mode you are using, especially in nested FOR/NEXT loops. 

6B: 

10 GRAPHICS 7:COLOR 1 
20 FOR X-l TO 139 
30 FOR Y-i TO 80 
40 PLOT X,Y 
30 NEXT Y 
60 NEXT X 

This is another FOR/NEXT loop trap. ERROR 13 says that there is no 
matching FOR statement for the last NEXT. This error is common enough 
to have a built-in error detector for it. What happens in this program that 
does not work is that: 

1— you begin with X=1 

2— and Y=1 

3— and plot 1,1 and 

4— go to the next X and plot 2,1 

5— and then go to the next X and plot 3,1 

6— and plot 4,1 all the way up to 159,1 

This gives you the horizontal line at the top of the screen. Once this 
line has been drawn, the program bombs. It has no way to get to the NEXT 
Y. The nested loops have not been ordered correctly. Whenever you nest 
loops in order to have two things working in conjunction, you have to 
structure the loops so that the first loop begins and ends the nesting, the 
second loop is second from the beginning and second from the end, etc. 
Nested loops are like sets of parentheses where each ( has to have a 
matching ). Here’s how three nested loops would have to be structured to 
work: 


10 FOR X=1 TO 10 
20 FOR Y=1 TO 52 
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30 FOR 2-1 TO 5 

40 do something in the program 
50 NEXT 2 
60 NEXT V 
70 NEXT X 

The order in is XYZ and the order out is ZYX. It is a good programming 
habit to check for correct order in and out of nested loops. As you saw in 
our error program, if you don't do it the computer will automatically do it 
for you. It won't fix the error, however, so it's best to check yourself. 
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T he puzzles in this section consist of a short program with one line all 
scrambled up. There is a screen dump accompanying each program so 
that you can tell what the program is supposed to do. An ERROR state¬ 
ment marks the scrambled line so you don't have to figure out which is the 
problem line. Before you begin, here is an example of scrambled and 
unscrambled lines: 

Scrambled: 

50 Error 1 GOSIJB T0 : 10F 0R =X 5 00X N EXT : 

Unscrambled: 

50 FOR X=1 TO 10:G03U6 500:NEXT X 



- 1 - 

MULTIPLICATION 

We'll start with a simple multiplication program. As you can see from the 
screen dump, the program gives you multiplication problems, as well as an 
opportunity to try again if you get the wrong answer. 


RUN 

HERE'S A SIMPLE MULTIPLICATION PROBLEM 


S TIMES B = 

?35 

TRY AGAIN 
?40 

GOOD GOING! HERE'S ANOTHER EXAMPLE: 
HERE'S A SIMPLE MULTIPLICATION PROBLEM 


A TIMES A = 

?16 

GOOD GOING! HERE'S ANOTHER EXAMPLE: 
HERE'S A SIMPLE MULTIPLICATION PROBLEM 


3 TIMES 3 = 

?■ 


Here's the scrambled program: 


10 PRINT "HERE’8 A SIMPLE MULTIPLICATI 
ON PROBLEM" 

20 PRINT 

30 LET X-INT(RND<1>*10> 

40 LET Y-INT(RND(1)*10) 

SO PRINT X|" TIMES "|Y|" 

60 INPUT Z 

70 ERROR- XYZ#TH£N100IFG0T0- 
80 PRINT "TRY AGAIN":SOTO 60 
lOO PRINT "GOOD GOING! HERE’S ANOTHER 
EXAMPLE:" 

110 GOTO 10 


29 



ssm 


- 2 - 

DOUBLE SUN 

This is a graphics puzzle which plots a double sun on the screen. Each sun 
takes a turn drawing its rays, resulting in this image on the screen: 



Here is the scrambled program: 


lO BRAPHIC8 7:COLOR 1 
FOR X-l TO SO 
PLOT 40,40 

ERROR- iRNDBO))RND0O(DRAWTO<*,*1 
NEXT X 

FOR Y-l TO SO 
70 PLOT 120,40 

00 DRANTO RND(1)*79+80,RND<1)*80 
90 NEXT Y 
lOO GOTO 20 


30 


- 3 - 

HOURS TO SECONDS 

This simple program converts hours to seconds. It asks you how many 
seconds there are in any number of hours. It won't ask for seconds in more 
than 10 hours since the calculating gets boring at that point. Nevertheless, 
it could: 


rum 

THERE ARE 60 MINUTES 

THERE ARE 60 SECONDS 

HOW MANY SECONDS ARE 

’3600 

A 6 SOI. U TLEY ! 

READY 

RUN 

THERE ARE 60 MINUTES 

THERE ARE 60 SECONDS 

HOW MANY SECONDS ARE 

?12400 
NOT QUITE. 

?25200 
ABSOLUTLEY! 

READY 

■ 


I N 
IN 

T H E R E 


AN HOUR. 

AN MIHU TE . 

IN 1 HOUR* 


IN AN HOUR. 

IN AN MINUTE. 

THERE IN 7 HOUR* 


Here’s the scrambled program: 


10 PRINT "THERE ARE 60 MINUTES IN AN H 
OUR." 

20 PRINT -THERE ARE 60 SECONDS IN AN M 
INUTE. - 

30 LET X-INT<RND<1>*10>+1 

40 PRINT -HOW MANY SECONDS ARE THERE I 

N ■1X1“ HOURS?" 

30 INPUT Y 

60 ERROR- PRINT-THEN!END"60ABSOLUTEL 

Y60*IF*X-:Y 

70 PRINT "NOT QUITE.":GOTO 50 
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- 4 - 

TIMED CALCULATIONS 

This program sees if you can do some simple number manipulation under 
some time pressure. It mixes multiplication with simple addition by asking 
you to add 1 to your times answer. Of course, any number could be added 
and the challenge could be made more complex: 


RIJN 

CAN YOU CALCULATE QUICKLY? 

LET'S SEE. 

WHAT IS.. 

(2 TIMES 9) +1= 

WHAT IS YOUR ANSWER? 

?17 

TRY AGAIN. 

WHAT IS YOUR ANSWER? 

?19 

YOU GOT IT ! ! ! ! 

READY 


Here is the scrambled program: 


10 PRINT "CAN YOU CALCULATE QUICKLY?" 
20 PRINT "LET'S SEE." 

30 PRINT 

40 PRINT "WHAT IS.." 

30 LET X-INT<RND<1)*30> 

60 PRINT 

70 ERROR- "-"♦“PRINT2XTIME8) (1 

SO FOR Z-l TO 1300:NEXT Z 
90 PRINT 

lOO PRINT " WHAT IS YOUR ANSWER?" 

110 INPUT Y 

120 IF Y-<2*X)+1 THEN PRINT "YOU SOT I 
T!!!!":END 

130 PRINT "TRY AGAIN.":SOTO 100 
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- 5 - 

A SIMPLE NUMBER GAME 

This is a simple number comparison game for young children. It asks 
whether one number is greater than another. If you look closely at the 
program you’ll see that the computer will never select two equal numbers. 
It teaches the use of < and >. 


RUM 

HERE'S A SIMPLE NUMBER GAME: 

IS 10 GREATER OR LESS THAN 7 

TYPE > IE IT IS GREATER AND < IE IT IS i 

LESS 
?> 

YOU GOT IT 

READY 

RUN 

HERE * S A SIMPLE NUMBER GAME: 

IS 10 GREATER OR LESS THAN U 

TYPE > IE IT IS GREATER AND < IF IT IS 

LESS 


Here is the scrambled program: 

10 PRINT “HERE’S A SIMPLE NUMBER SAME: 

M 

20 ERROR- 'XRND< INT) 20 (-K.ET) *1 

30 IF X«10 THEN SOTO 20 

40 PRINT "IS 10 8REATER OR LESS THAN ” 

IX 

SO DIM A*(l) 

60 PRINT 

70 PRINT "TYPE > IF IT 18 BREATER AND 
< IF IT IS LES8" 

80 INPUT A* 

90 IF X<10 THEN SOTO lOOO 

lOO IF XMO THEN SOTO 2000 

lOOO IF A*-">" THEN PRINT "YOU SOT IT" 

ZEND 

1010 PRINT "SORRY. TYPE RUN AND TRY A 

BAIN IF YOU LIKE.":END 

2000 IF A*-"<" THEN PRINT "YOU SOT IT” 

:end 

2010 PRINT "SORRY. TYPE RUN AND TRY A 
SAIN IF YOU LIKE."ZEND 
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- 6 - 

MINUTE/DAY CONVERSION 

Here’s a minute/day conversion program that tells you how many minutes 
there are in any number of days. It does not quiz you. but answers your 
question instead: 


RUM 

HERE'S A PROGRAM THAI MILL TELL 

YOU IIOU MANY MINUTES THERE ORE IN 

ANY NUMBER OE ROYS. 

HOW MANY DAYS? 

?3 

THERE ARE 4320 MINUTES IN 3 DAYS 

DO YOU WANT TO CHANGE THE NUMBER OF 

DAYS? 

?YE5 

HOU MA NY DAYS? 

? 7 

THERE ARE: I0O80 MINUTES IN V DAYS 

DO YOU WANT TO CHANGE THE NUMBER OF 

DAYS? 

?HO 

READY 


Here is the scrambled program: 

lO PRINT “HERE'S A PROGRAM THAT WILL T 
ELL" 

20 PRINT “YOU HOW MANY MINUTES THERE A 
RE IN- 

30 PRINT “ANY NUMBER OF DAYS." 

40 PRINT 

50 PRINT "HOW MANY DAYS?" 

60 CLR 
70 INPUT X 
80 GOSUB 500 

90 PRINT "DO YOU WANT TO CHANGE THE NU 
MBER OF DAYS?" 
lOO DIM A*(3) 

HO INPUT A* 

120 IF A*-"YE8" THEN GOTO 50 
130 END 
500 PRINT 

510 ERROR- X"|1601*PRINT"THERE*MINUT 
E8*DAYS" "WARE"! 24 

520 RETURN 
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- 7 - 

QUICK ADDITION 

This puzzle challenges you to add a string of six numbers together quickly: 


HERE IS A LIST OF NUMBERS 

TRY TO ABO THEM TOGETHER OUICKLV 

A 2 S O O 2 

MHOT IS YOUR ONSMER 

?25 

TRY ONCE MORE. 

?31 

TRY ONCE MORE. 

?J3 

YOU'VE GOT IT. 

READY 


Here is the scrambled program: 


10 PRINT "HERE IS A LIST OF NUMBERS" 

20 PRINT "TRY TO ADD THEM TOGETHER QUI 
CKLY" 

30 FOR Z-l TO lOOO:NEXT Z 
40 DIM A(6) 

50 FOR X-l TO 6 

60 ERROR- AX(((RNDINT) 1) )10*“ 

70 PRINT A<X)I" "| 

SO NEXT X 

90 FOR Z-l TO 2000:NEXT Z 
100 PRINT 

110 PRINT "WHAT IS YOUR ANSWER" 

120 INPUT Y 

130 IF Y—A< 1) +A(2) +A<3) +A<4) +A<5) +A(6) 
THEN PRINT "YOU'VE GOT IT.":END 
140 IF Y< >A (1) +A (2) +A (3) +A <4) +A (5) +A <6 
) THEN PRINT "TRY ONCE MORE.GOTO 120 
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DOT COUNTING 

This is a dot counting game. 


HOW MANY DOTS ORE ON THE SCREEN? 
YOUR ClIESS? 


Here is the scrambled program: 


lO GRAPHICS 7:COLOR 1 

20 PRINT "HOW MANY DOTS ARE ON THE SCR 
EEN?" 

30 LET X-INT<RND<1>#13>+1 

40 LET W-3 

30 FOR Y-l TO X 

60 PLOT N,40 

70 ERROR- SWW-LET+ 

80 NEXT Y 

90 PRINT “YOUR GUE8S?“| 

10O INPUT Z 

110 IF Z-X THEN PRINT "EXACTLYEND 


120 PRINT “COUNT AGAIN 


"IGOTO 100 




— 9 — 

RIDICULOUS 


This program can print the word "RIDICULOUS"—any number of times— 
perhaps a ridiculous venture but one whose structure is used in some 
programming contexts: 


RIIN 

HOW MANY TIMES WOULD YOU LIKE ME IO 
PRINT YOUR NAME OR ANY OTHER WORD? 

’35 

WHAT WORD WOULD YOU EIRE ME TO PRINT 
35 TIMES? 

’RTDICIILOU5 

RIDICULOUS RIDICULOUS RIDICULOUS RIDIC 
L1LOUS RIDICULOUS RIDICULOUS RIDICULOUS: 

RIDICULOUS RIDICULOUS RIDICULOUS MIDI 
CULOUS RIDICULOUS RIDICULOUS RIDIC IJ LOU 
S RIDICULOUS RIDICULOUS RIDICULOUS RID 
ICIJLOIIS RIDICULOUS RIDICULOUS R1DICUI.O 
US RIDICULOUS RIDICULOUS RIDICULOUS RI 
DICULOUS RIDICULOUS RIDICULOUS RIDICUL¬ 
OUS RIDICULOUS RIDIC LI I O II S RIDICULOUS R 
IDICULOUS RIDICULOUS RIDICULOUS RIDICU 
l-OUS 
READY 


Here is the scrambled program: 


10 PRINT “HOW MANY TIMES WOULD YOU LIK 
E ME T0 H 

20 PRINT "PRINT YOUR NAME OR ANY OTHER 
WORD?" 

30 INPUT X 

40 PRINT "WHAT WORD WOULD YOU LIKE ME 
TO PRINT "|X|" TIMES?" 

SO DIM At (SO) 

60 INPUT At 
70 ERROR- 'XTOIYFOR 
80 PRINT At|" "| 

90 NEXT Y 
lOO END 
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- 10 - 

BARBER S PARADOX 

This little scramble is a version of the classical Barber's Paradox: There is a 
barber in a town who shaves all and only people in the town who don’t 
shave themselves. Does he shave himself? 

I've taken the paradox to school you might say: 


RUN 

JUL 

SHE 

PEO 

THE 

OOE 

?YE 

THE 

JUL 

SHE 

PEO 

THE 

DOE 

?NO 

THE 

.JUL 

SHE 

PEO 

THE 

DOE 


XA IS A 

DOES HO 
PLE WHO 
MSELOES. 
S JULIA 
S 

N SHE DO 

IA IS A 

DOES HO 
PLE WHO 
MSELWES. 
S JULIA 


KIND AND LOVELY P 
MEWORK FOR ALL AN 
DON’T DO HOMEWORK 


ERSON . 
D ONLY 
FOR 


DO HER OWN HOMEWORK? 


ESN * T DO IT . 

KIND AND LOVELY P 
MEWORK FOR ALL AN 
DON’T DO HOMEWORK 


ERSON . 
D ONLY 
FOR 


DO HER OWN HOMEWORK? 


N SHE DO 
IA IS A 
DOES HO 
PLE WHO 
MSELVES. 

S JULIA DO HER OWN HOMEWORK? 


> E S DO IT . 

KIND AND LOVELY PERSON. 

>ME WORK FOR ALL AND ONLY 
DON’T DO HOMEWORK FOR 


10 PRINT M JULIA IS A KIND AND LOVELY P 
ERSON." 

20 PRINT "SHE DOES HOMEWORK FOR ALL AN 
D ONLY" 

30 PRINT "PEOPLE WHO DON'T DO HOMEWORK 
FOR" 

40 PRINT "THEMSELVES." 

50 PRINT "DOES JULIA DO HER OWN HOMEWO 
RK?" 

60 CLR 
70 DIM At(3) 

80 INPUT At 

90 ERROR- J0 M .THENOOTO M At-DOESN' TIF " 

SHEYESS PRINT"ITDOTHEN 

lOO IF At-"NO" THEN PRINT "THEN SHE DO 
ESN'T DO IT.":SOTO 10 
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Answers 


i 


10 PRINT “HERE’S A SIMPLE MULTIPLICATJ 
ON PROBLEM" 

20 PRINT 

30 LET X~INT<RND<1>*10> 

40 LET Y-INT(RND<1>*10> 

30 PRINT XJ“ TIMES “|Y|“ 

60 INPUT Z 

70 IF Z-X*Y THEN GOTO 100 
SO PRINT "TRY AGAIN":SOTO 60 
lOO PRINT "GOOD GOING! HERE’S ANOTHER 
EXAMPLE:“ 

HO GOTO 10 


As you can see, line 70 (the scrambled line) checks for correct answers 
using the variable Z which is the answer you input. If Z=X*Y then you got 
the program and are sent to line 100 for congratulations and a chance at 
another example. If Z < > X*Y the program moves to line 80 which sends 
you back to the problem you missed. This little technique can be incorpo¬ 
rated in games where you want to give people many chances to answer a 
question as well as generate new questions. 


2 


lO GRAPHICS 7:COLOR 1 
20 FOR X-l TO SO 
30 PLOT 40,40 

40 DRAHTO RND (1) *80, RND < 1) *80 
30 NEXT X 
60 FOR Y-l TO 50 
70 PLOT 120,40 

80 DRAWTO RND <1)*79+80,RND(1)*80 
90 NEXT Y 
100 GOTO 20 
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The scrambled line 40 is a DRAWTO statement, one of the most 
powerful Graphics commands in Atari BASIC. It selects random points on 
the left side of the screen (half the screen is approximately 80 columns long 
and 80 columns wide) and draws from the center point of that halfscreen 
to the chosen random point. This double sun effect is a good way to dress 
up the ending of a game. 


3 


10 PRINT -THERE ARE 60 MINUTES IN AN H 
OUR. “ 

20 PRINT -THERE ARE 60 SECONDS IN AN M 
INUTE." 

30 LET X-INT<RND<1)*10>+1 

40 PRINT "HOW MANY SECONDS ARE THERE I 

N "»XI“ HOURS?" 

SO INPUT Y 

60 IF Y-X*60*60 THEN PRINT "ABSOLUTLEY 
!-:END 

70 PRINT -NOT QUITE.":QOTO SO 


The key to unscrambling this puzzle is to know that you calculate the 
number of seconds in an hour using the formula X (the number of 
hours)*60*60 which is the conversion formula. This form of program can 
be changed to ask about converting feet or miles to inches, meters to 
centimeters, etc. It is a simple and generalizable form of a conversion quiz 
program. 


4 


10 PRINT "CAN YOU CALCULATE QUICKLY?" 
20 PRINT "LET'S SEE." 

30 PRINT 

40 PRINT "WHAT IS.." 

30 LET X-INT(RND<l)*SO> 

60 PRINT 

70 PRINT "<2 TIMES "|X|"> +1-" 

BO FOR Z-l TO 1300:NEXT Z 
90 PRINT 

lOO PRINT " WHAT IS YOUR ANSWER?" 

110 INPUT Y 


40 


120 IF Y-<2#X>+1 THEN PRINT “YOU GOT I 
T!!!!“:END 

130 PRINT “TRY AGAIN."IGOTO lOO 

This is simply an unscrambling of the integer random number function 
in Atari BASIC. Many beginning programmers confuse RND( 1 )*X, which 
gives a decimal answer, with INT (RND(1 )*X) which gives an integer. There 
are times when having integers is essential to a game or program. Also, it is 
important to pay attention to the placement of parentheses in the INT 
statement. A simple mistake like 1NT(RND(1 ))*X can cause quite a mess. 
Try to figure out the different effects of INT(RND( 1 ))*6 and INT(RND( 1 )*X). 
What you will see is the result of the fact that INT(RND(1)) is always 0. 


5 


10 PRINT “HERE’S A SIMPLE NUMBER GAME: 

H 

20 LET X“INT <RND(1)*20) 

30 IF X-IO THEN GOTO 20 

40 PRINT “IS 10 GREATER OR LESS THAN " 

IX 

50 DIM A«<1) 

60 PRINT 

70 PRINT "TYPE > IF IT IS GREATER AND 
< IF IT IS LESS" 

GO INPUT A* 

90 IF X<10 THEN GOTO lOOO 

lOO IF X>10 THEN GOTO 2000 

lOOO IF A*-">" THEN PRINT "YOU GOT IT" 

:end 

1010 PRINT “SORRY. TYPE RUN AND TRY A 

GAIN IF YOU LIKE.“:END 

2000 IF A*-“<" THEN PRINT "YOU GOT IT” 

:end 

2010 PRINT "SORRY. TYPE RUN AND TRY A 
GAIN IF YOU LIKE.":END 

The key to unscrambling this is to figure out that there is only one 
variable in this challenge. (2*X)+1 is the major part of the reconstruction of 
the scrambled line. There are also some syntactical tricks that have to be 
mastered to use the PRINT statement with variables. You can print a 
variable along with words or other numbers but variables do not go in 
quotes as in this line: 
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10 PRINT X*Y 


and in this more complex line: 
10 PRINT >f Y;Z 


Note that the = is not a variable and has to be enclosed in quotes. 
This program can be modified for practice in the kind of calculations 
that are common in beginning algebra. For example, it can take the form: 

What is ( (2*.-(5*Y) f 2? 


-6 


lO PRINT “HERE'S A PROGRAM THAT WILL T 
ELL- 

20 PRINT “YOU HOW MANY MINUTES THERE A 
RE IN" 

30 PRINT "ANY NUMBER OF DAYS.“ 

40 PRINT 

SO PRINT "HOW MANY DAYS?" 

60 CLR 
70 INPUT X 
80 GOBUB 300 

90 PRINT "DO YOU WANT TO CHANGE THE NU 
MBER OF DAYS?" 

100 DIM A*(3) 

110 INPUT A« 

120 IF A*-"YE8" THEN GOTO 50 
130 END 
300 PRINT 

310 PRINT "THERE ARE "|X*60*24|" MINUT 
ES IN "I XI" DAYS" 

320 RETURN 


Line 510 combines calculation with printing and, like the previous 
conversion puzzle (number 3), can be used to perform many different types 
of conversions. In unscrambling this, the thing to watch for is the place¬ 
ment of quotes and semicolons. A misplaced quote or semicolon can des¬ 
troy the entire program. 
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7 


10 PRINT “HERE IS A LIST OF NUMBERS- 
20 PRINT "TRY TO ADD THEM TOGETHER QUI 
CKLY" 

30 FOR Z-l TO iooo:next Z 
40 DIM A <6) 

SO FOR X-l TO 6 

60 A(X)"INT(RND(1)*10) 

70 PRINT A<X)I" "| 

80 NEXT X 

90 FOR Z-l TO 2000:NEXT Z 
lOO PRINT 

110 PRINT "WHAT IS YOUR ANSWER- 
120 INPUT Y 

130 IF Y—A (1) +A <2) +A (3) +A <4> +A <5) +A (6) 
THEN PRINT “YOU’VE GOT IT.":END 
140 IF Y<>A< 1) +A.(2) +A(3)+A<4)+A(5)+A<6 
) THEN PRINT "TRY ONCE MORE.":GOTO 120 


This program makes use of a powerful aspect of Atari BASIC—the 
array. A(X) is dimensioned on line 40 to contain six numbers. The scrambled 
line 60 places a random integer between 0 and 10 in each position. That 
way, lists of numbers can be generated and used as in this program. Begin¬ 
ning and intermediate programmers should take advantage of the ability to 
store and use lists that this function provides. For examples of the use of 
arrays see your Atari BASIC Reference Manual or look up arrays in a text 
if you are not already familiar with them. 


8 


lO GRAPHICS 7:COLOR 1 

20 PRINT "HOW MANY DOTS ARE ON THE SCR 
EEN?" 

30 LET X—INT(RND <1)*13)+1 

40 LET W—3 

30 FOR Y-l TO X 

60 PLOT W,40 

70 LET W-W+3 

BO NEXT Y 

90 PRINT "YOUR GUESS?-| 

100 INPUT Z 

110 IF Z-X THEN PRINT "EXACTLY!!!":END 
120 PRINT "COUNT AGAIN_":GOTO 100 
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The LET W=W+5 statement represents a very powerful self¬ 
incrementing process that is often used in computer programs. For exam¬ 
ple, a simple program 

10 LET X=0 
20 FOR Y=1 TO 100 
30 LET X=X+1:PRINT X 
40 NEXT X 

will give you all the numbers from 1 to 100. If line 39 were changed to 
30 LET X=X+2:PRINT X 

you would get the numbers from 2 to 100 counting by twos. This can give 
you great control over how to change the variables in your programs. In the 
case of the program in this puzzle, W=W+5 was used to draw points that 
were five points apart so that they would be seen as distinct on the screen. 


9 


10 PRINT “HOW MANY TIME8 WOULD YOU LIK 
E ME TO“ 

20 PRINT "PRINT YOUR NAME OR ANY OTHER 
WORD?" 

30 INPUT X 

40 PRINT "WHAT WORD WOULD YOU LIKE ME 
TO PRINT X|" TIME8?" 

30 DIM A*(SO) 

60 INPUT A* 

70 FOR Y-l TO X 
BO PRINT A*|" "| 

90 NEXT Y 
100 END 


This is a scramble of the FOR statement of the FOR/NEXT loop used 
in the program to produce the ridiculous repetition. Notice that the number 
of times through the loop (the X variable) changes each time you run the 
program. Most beginning programmers use fixed loops like FOR X=1 TO 
59, but sometimes it is more useful to change the number of times 
through the loop as the program is running. 
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10 


10 PRINT “JULIA IS A KIND AND LOVELY P 
EPSON. " 

20 PRINT “SHE DOES HOMEWORK FOR ALL AN 
D ONLY" 

30 PRINT “PEOPLE WHO DON’T DO HOMEWORK 
FOR" 

40 PRINT "THEMSELVES." 

50 PRINT "DOES JULIA DO HER OWN HOMEWO 
RK?" 

60 CLR 
70 DIM A*<3> 

SO INPUT A* 

90 IF A*-"YES" THEN PRINT “THEN SHE DO 
ESN’T DO IT.GOTO 10 

lOO IF A*-"NO” THEN PRINT “THEN SHE DO 
ES DO IT.SOTO 10 


The scrambled line 90 as well as line 100 make the paradox continue 
until you are bored and shut down the computer. However, the lines 
illustrate a technique you can add to many of the games and quizzes in this 
section. It will allow them to run many times instead of ending after just 
one play. Here's a very simple example: 

10 PRINT “WHRT NUMBER IS THIS” 

20 X = INT(RND(1)*20) 

25 PRINT X 
30 INPUT V 

40 IF X = Y THEN PRINT ‘ ‘GRERT’ ’ :GOTO 10 
50 IF X. < > Y THEN PRINT ‘ ‘TRY RGRIN’ ’ -.GOTO 30 
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T he puzzles in this section leave all the code in a program intact. All they 
do is scramble the line numbers. These numbers are not scrambled 
according to any pattern so there is no use trying to solve the puzzles by 
trying to figure out a pattern for transforming the line numbers. You have 
to pay attention to the screen dumps and try to put a program structure 
together that will do what the illustrations show. 

Scrambling line numbers of even the simplest programs can destroy 
them. For example, take this two-line program: 

10 PRINT "HO HO HO!"; 

20 GOTO 10 

This will fill the screen up with a jolly greeting. Reverse the line numbers 
and you get: 

10 GOTO 10 

20 PRINT "HO HO HO !"; 

This program will lock up at line 10 and stay there until you press the 
BREAK key. Nothing will happen. In the simplest way. this is an illustration 
of the importance of program structure in BASIC. Now for the puzzles. 
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- 1 - 

HERE COMES THE SUN 

This program shines and lets us know endlessly that the sun is coming and 
filling up the screen. Here is a picture of what the program does and a 
scrambled version of the program. Unscramble the program and, if you feel 
like it, make it fancier. 



COMES THE SUNHERE COMES THE SUNHERE C 
OMES THE SUNHFRE COMES I HE *>IIM HERE COM 

ES IHE SUNHERE COMES THE SUMHERF COMES 
THE SUNHERE COMES THE SIJNHER 


10 FOR X-l TO 73:NEXT X 
20 GOTO 20 

30 GRAPHICS 7:COLOR 1 
40 PRINT “HERE COMES THE SUN"I 
50 DRAWTO RND(1)*139,RND<1)*80 
60 PLOT 0,0 
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- 2 - 

THERE GOES THE DRUNK 

This is a simple variant on Puzzle 1 that produces a completely different 
result. You should be able to think through the difference and reconstruct 
the program that ambles with the drunk. 



RIINKTHERE GOES THE RRLiNKTHERE GOES THE 
DRIINKTHERF GOES THE DRIINKI 


10 DRAWTO RND<1)*1S9,RND(1)*00 
20 SOTO 30 

30 PRINT "THERE GOES THE DRUNK"! 
40 GRAPHICS 7:COLOR 1 
SO FOR X-l TO lOOlNEXT X 
60 PLOT 0,0 
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- 3 - 

A POETIC SCRAMBLE 

Here is a little poem with some input about the weather. The input, 
combined with the poem, should help you reassemble the scrambled 
program. 


RUN 

HOW IS THE WEATHER TODAY? 

?LOUSY 

WELL. WHETHER YOU LIKE IT 
OR WHETHER NOT 
LOUSY WEATHER 

IS THE ONLY KIND OF WEATHER 
WE GOT. 

READY 


lO PRINT A*!" WEATHER" 

20 PRINT "WELL, WHETHER YOU LIKE IT" 

30 INPUT A* 

40 PRINT "IS THE ONLY KIND OF WEATHER" 
30 DIM A*(SO) 

60 PRINT "OR WHETHER NOT" 

70 PRINT "WE GOT." 

80 PRINT 

90 PRINT "HOW IS THE WEATHER TODAY?" 
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- 4 - 

WHERE AM I? 

This program allows you to plot a point on the screen in Graphics 7 and see 
the point on the screen. When unscrambled, it is a good way to become 
familiar with the positions on the screen. 


ROM 
COLUMN 

m _ 


CO TO 79) 


CO TO 159) 


10 QOTO 20 
20 INPUT B 

30 PRINT "ROW (O TO 79)" 

40 PLOT A,B 

30 PRINT "COLUMN (O TO 159)" 
60 GRAPHICS 7:COLOR 1 
70 INPUT A 
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- 5 - 

A LITTLE DIFFERENT ORDER 

Here is a scrambled program and what it does when you run it: 


OOM’T ASK ME WHY. PLEASE 
GIVE ME TWO NUMBERS TO ADD. 

THE ANSWER IS A GLORIOUS 50 
I AM CRAZY ABOUT ADDING BUT 

THANK YOU. THAT WAS DELICIOUS! 
?37 

FIRST N U MB ER-SECOND NU MB E R ~ 
READY 


Here is the scrambled program and a dump of what the unscrambled 
program is supposed to do. What is the unscrambled program? 


RUN 

I AM CRAZY ABOUT ADDING BUT 

DON'T ASK ME WHY. PLEASE 
GIVE ME TWO NUMBERS TO ADD. 
FIRST NUMBER — ?34 
SECOND NUMBER-?56 

THANK YOU. THAT WAS DELICIOUS! 
THE ANSWER IS A GLORIOUS SO 

READY 
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10 INPUT X 

20 PRINT "DON’T ASK NE WHY. PLEASE" 

30 PRINT "GIVE ME TWO NUMBERS TO ADD." 
40 PRINT "THE ANSWER IS A GLORIOUS “IX 
+Y 

30 PRINT "I AM CRAZY ABOUT ADDING BUT" 
i>0 PRINT “THANK YOU. THAT WAS DELICIO 
US! " 

70 INPUT Y 

80 PRINT "FIRST NUMBER-"! 

90 PRINT "SECOND NUMBER-"! 



- 6 - 

CAN YOU COUNT? 

This program picks a number and asks you what comes next. 


RUN 

WHAT NUMBER COMES AFTER Z 
? 4 

TRY AGAIN. YOU CAN DO IT « ! ■ 

?G 

TRY AGAIN. YOU CAN DO IT'!! 

?3 

RIGHT ON ! ! ! 

READY 


lO PRINT “WHAT NUMBER COMES AFTER “JX 
20 IF YOX+1 THEN PRINT “TRY AGAIN. Y 
OU CAN DO IT!!!“ 

30 LET X«INT(RND<1>*11> 

40 IF Y-X+l THEN PRINT “RIGHT ON!!!“:E 
ND 

90 GOTO 30 
60 INPUT Y 
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- 7 - 

NEXT LETTER 

This program is supposed to ask what letter comes next in the alphabet 
after one chosen by the computer. When scrambled, here is what it does: 


RUN 

OTH XN THE ALPHABET? 

? 4 

ERROR- 9 AT LINE 2© 


Here is the scrambled program and a screen dump of it running 
unscrambled: 


RUN 

MH AT LETTER 
?D 

GUE55 AGAIN 
?E 

RIGHT 

READY 


COMES 5TH IN THE ALPHABET? 
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10 PRINT X("TH IN THE ALPHABET?" 

20 INPUT B* 

30 PRINT "GUESS AGAIN” 

40 PRINT “WHAT LETTER COMES “I 

50 IF A*(X,X)-B* THEN PRINT "RIGHT":EN 

D 

60 A**“ABCDEFGHIJKLMNOPQRSTUVW X Y Z“ 

70 DIM B*<1) 

80 GOTO 70 
90 DIM A* (26) 

lOO LET X“INT(RND(1)*26)+1 


— 8 — 

NAME NAME 


This program in Graphics 2 asks for your name and then prints it out 12 
times in large letters. Graphics 2 is nice for bold statements. Here is what 
the program looks like on the screen and the scrambled version of the 
program. Put it together and print the names of your family and friends. 
(Joshua is my son's name.) 


MH 

A 

T 


X 

3 


V 

O 

U 

R 


N 

A 

ME 

9 



J 

O 

3 

H 

U 

A 















MH 

A 

T 


A 


N 

I 

C 

E 


N 

A 

ME 

i 




J 

o 

5 

H 

u 

A 


J 

O 

3 

H 

U 

A 


J 

O 

3 

H 

U 

A 


J 

D 

3 

H 

U 

A 


J 

O 

3 

H 

U 

A 


J 

O 

3 

H 

U 

A 


J 

O 

s 

H 

U 

A 


J 

O 

3 

H 

U 

A 


J 

O 

3 

H 

U 

A 


J 

o 

3 

H 

U 

A 


-J 

O 

3 

H 

U 

A 


J 

O 

3 


HU A 


?J05HUI> 

RErtOV 

1L, 


lO PRINT *6|A* 

20 FOR Z-l TO 12 
30 DIM A*(SO) 

40 PRINT #6|"NHAT IS YOUR NAME?" 
SO PRINT #6JA*J" "I 
60 PRINT #6|"WHAT A NICE NAME!" 
70 NEXT Z 

80 GRAPHICS 2:COLOR 1 
90 INPUT A* 
lOO PRINT *6 
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- 9 - 

MEDITATION 

A screen dump can hardly capture this program which cycles through all of 
the colors and luminances of the Atari computer while slowly drawing a 
starburst. The program keeps on changing but slowly enough to allow you 
to relax and look. Here's an inadequate black and white dump of the 
program as well as the scrambled program: 



10 NEXT X 

20 DRAWTO RND<1)*139,RND(1> *80 
30 PLOT 80,40 
40 GRAPHICS 2 
30 GRAPHICS CLR 

60 PRINT "HERE ARE SOME COLORS FOR" 

70 GOTO 10 

80 FOR Y-l TO 73:NEXT Y 
90 SETCOLOR 4,RND(1)*16,RNDC1)*15 
lOO FOR X-l TO 50 

HO PRINT "MEDITATION AND RELAXATION” 
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- 10 - 

AN OPTIMISTIC PSYCHIATRIST’S 
PROJECTIVE TEST 

This test asks you for a color preference. All the responses are in full color 
and are positive because the psychiatrist that taught me the test never 
found a person she didn't believe in. The black and white can’t show you the 
passionate red, the sky blue, or the bright yellow but your Atari can. Try to 
unscramble the program and then add color upon color until you can make 
positive statements corresponding to all the 128 colors and luminances 
that you can control on the Atari. Finding 128 positive statements will be a 
good exercise in itself, whether you can unscramble the program or not. 


RIJN 

MHICH or THESE THREE COLORS IS YOUR 
r AUORITE. 

RED BLUE YELLOW 

?RED| 


YOU ARE 
PASSIONATE 


60 




THE SKY 
IS THE LIMIT 


YOU SHINE 
WITH JOY 


10 PRINT #6»" WITH JOY" 

20 IF D«-B* THEN GOTO 2000 
30 POSITION 0,3 
40 SETCOLOR 0,13,14 
50 PRINT *6| M THE SKY- 

60 GRAPHICS 2 

70 DIM A*(10) ,B*dO) ,C*<10> ,D*(10> 

80 PRINT #61“ IS THE LIMIT" 

90 END 

lOO PRINT #61" YOU ARE" 

lOOO PRINT " RED BLUE YELL 

OW" 

1010 PRINT #6|" 


YOU SHINE 




1020 A*«“RED":B*«"BLUE":C*«"YELLOW" 

1030 SETCOLOR 0,4,7 

1040 POSITION 0,3 

1090 END 

2000 GRAPHICS 2 

2010 PRINT “FAVORITE.“ 

2020 IF D*-A* THEN GOTO lOOO 

2030 PRINT “WHICH OF THESE THREE COLOR 

S IS YOUR" 

2040 PRINT PASSIONATE" 

2090 END 

3000 GRAPHICS 2 

3010 IF D*-C* THEN GOTO 3000 

3020 INPUT D* 

3030 PRINT 

3040 SETCOLOR 0,8,7 

3090 POSITION 0,3 
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Answers 


i 


lO GRAPHICS 7:COLOR 1 
20 PLOT 0,0 

30 DRAWTO RND< 1)*159,RND(1)*80 
40 PRINT “HERE COMES THE SUN"! 
SO FOR X-l TO 75:NEXT X 
60 GOTO 20 


In Graphics programs, especially those with GOTO statements and 
loops, which line the GOTO refers to and the position the Graphics state¬ 
ment plays within the loop are essential. In fact, try this program with the 
following simple line change and see what happens: 

60 GOTO 10 


2 


10 GRAPHICS 7:COLOR 1 
20 PLOT 0,0 

30 DRAWTO RND < 1) *159, RND < 1) *S0 
40 PRINT “THERE GOES THE DRUNK"! 
50 FOR X-l TO 100:NEXT X 
60 GOTO 30 


Compare the unscrambled version of this program with that of Puzzle 
1. Notice that, once again, a simple change in the reference of a GOTO 
statement totally changes the nature of the program results. 
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3 


10 PRINT "HOW IS THE WEATHER TODAY?" 

20 DIN A*(50) 

30 INPUT A* 

40 PRINT 

50 PRINT “WELL, WHETHER YOU LIKE IT” 

60 PRINT “OR WHETHER NOT" 

70 PRINT A*J“ WEATHER" 

SO PRINT “IS THE ONLY KIND OF WEATHER" 
90 PRINT “WE SOT." 


Almost any saying can be turned into a fun program using this form. 
Try an input to the following: 

Too many X's spoil the Y. 

An X in time saves Y. 

Better X than Y. 


4 


lO GRAPHICS 7:COLOR 
20 PRINT "COLUMN (O 
30 INPUT A 
40 PRINT "ROW (O TO 
50 INPUT B 
60 PLOT A, B 
70 SOTO 20 


1 

TO 159)" 
79) " 


After you understand how this program works, try to do it in the 
different Atari Graphics modes. It is a good way to become familiar with the 
variety of screens the Atari allows you to use in your programs. 
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5 


10 PRINT 
20 PRINT 
30 PRINT 
40 PRINT 
30 INPUT 
60 PRINT 
70 INPUT 
80 PRINT 
US! ” 

90 PRINT 
+Y 


"I AN CRAZY ABOUT ADDING BUT" 
"DON'T ASK ME WHY. PLEASE" 
"GIVE ME TWO NUMBERS TO ADD." 
"FIRST NUMBER-"! 

X 

"SECOND NUMBER-"! 

Y 

“THANK YOU. THAT WAS DELICIO 
"THE ANSWER IS A GLORIOUS “!X 


Of course, this program can easily be extended to multiplication. See if 
you can get a bit more complex and extend it to division so the answer 
comes out even and to subtraction so the answer comes out positive. This 
will require a few more lines of code guaranteeing these conditions. 


6 


lO LET X-INT<RNDU)*U) 

20 PRINT “WHAT NUMBER COMES AFTER "!X 
30 INPUT Y 

40 IF Y-X+l THEN PRINT “RIGHT ON!!!":E 
ND 

30 IF YOX+1 THEN PRINT "TRY AGAIN. Y 
OU CAN DO IT!!!" 

60 GOTO 30 


Here are some interesting modifications: 


Can you tell me what 5 times X is? 

Can you tell me what 5 times X divided by 3 is? (In this case set the 
program up so that the answer comes out even.) 
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7 


iO DIM A*(26) 

20 A*-“ABCDEFGHIJKLMNOPQRSTUVWX Y Z" 

30 LET X«INT<RND<1>*26)+1 
40 PRINT “WHAT LETTER COMES “I 
50 PRINT X|"TH IN THE ALPHABET?" 

60 DIM B*<1) 

70 INPUT B* 

80 IF A*<X,X)-B* THEN PRINT "RIQHT":EN 
D 

90 PRINT "GUESS AGAIN" 
lOO GOTO 70 


Notice that the alphabet is stored in this program in A$ which was 
dimensioned to hold 26 letters: DIM A$(26). Also notice that the key to 
the program is the powerful BASIC command A$(X,X) which allows you to 
choose the Ath member of A$. This is used in many code and word pro¬ 
grams. In its more complex form it has two variables A$(X,Y) which will 
allow you to use all the members of A$ from X to Y. Thus, if A$ contained 
the alphabet then A$(X,Y) could have X=2 and Y=5 as values. It would 
become A$(2,5) and the command 10 PRINT A$(2.5) would result in the 
computer printing out: 

BCDE 


8 


10 GRAPHICS 2:COLOR 1 

20 PRINT #6|"WHAT IS YOUR NAME?" 

30 DIM A# (50) 

40 INPUT A* 

50 PRINT #6|A* 

60 PRINT *6|"WHAT A NICE NAME!" 

70 PRINT #6 

80 FOR Z-l TO 12 

90 PRINT #6»A*|" "1 

lOO NEXT Z 


66 
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10 GRAPHICS 7 

20 PRINT “HERE ARE SOME COLORS FOR" 
30 PRINT "MEDITATION AND RELAXATION" 
40 SETCOLOR 4,RND<1)*16,RND(1>*13 
50 FOR X=1 TO 50 
60 PLOT 80,40 

70 DRAWTO RND(1)*159,RND(1)*80 

80 FOR Y-l TO 75:NEXT Y 

90 NEXT X 

lOO GRAPHICS CLR 

110 GOTO 10 


Play with the Atari SETCOLOR command and Graphics can provide 
beautiful effects even for the beginning programmer. Try to change the 
colors, the luminances, and the pauses that keep the color on the screen. 
(This is done with empty FOR/NEXT loops like FOR X=1 TO 100:NEXT X 
which is empty since it tells you to do nothing during those cycles.) You can 
get pretty good at experimenting with these powerful ideas built into the 
BASIC of the Atari. 


10 


lO DIM A*<10),B*<10>,C«<10>,D«(10) 

20 A*«"RED":B*-"BLUE":C*-"YELLOW" 

30 PRINT "WHICH OF THESE THREE COLORS 
IS YOUR" 

40 PRINT "FAVORITE." 

50 PRINT 

60 PRINT " RED BLUE YELLOW 

M 

70 INPUT D* 

SO IF D*-A* THEN GOTO lOOO 

90 IF D*-B* THEN GOTO 2000 

lOO IF D*-C* THEN GOTO 3000 

lOOO GRAPHICS 2 

1010 SETCOLOR 0,4,7 

1020 POSITION 0,3 

1030 PRINT #61" YOU ARE" 

1040 PRINT «6|" PASSIONATE" 

1050 END 

2000 GRAPHICS 2 

2010 SETCOLOR 0,8,7 
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2020 POSITION 0,3 

2030 PRINT #6|" THE SKY" 

2040 PRINT #6|“ IS THE LIMIT- 

2030 END 

3000 GRAPHICS 2 

3010 SETCOLOR 0,13,14 

3020 POSITION 0,3 

3030 PRINT #6|“ YOU SHINE" 

3040 PRINT #6|" WITH JOY" 

3030 END 


Here are a few color character equivalents I've managed to come up 

with: 

orange—abundant and nourishing 
pink—shy but perceptive 
dark blue—deep and curious 
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I n these puzzles, one line is missing from the programs. The missing line 
is indicated by the line number and the statement PRINT"???????????". 
In choosing what lines to drop out, the main consideration was to leave out 
some essential part of the program structure. The screen dumps should 
give you enough of an idea of how the program runs to allow you to think 
your way through to the full program. If you come up with a line that 
works and is not the one given in the answer, please write and let me know. 
There are many ingenious ways to solve programming problems. 
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- 1 - 

COUNTING BACKWARDS 

This program asks you for an integer and then counts backwards from that 
number to 1 and prints out the list 


RIJN 
MATC 
WHAT 
^ AS 
15 
14 
A 3 
12 
X X 
X 0 

s 

a 

7 

0 

5 

A 

3 

2 

X 


H ME COUNT BACKWARDS. 

NUMBER SHOULD I START FROM? 


10 PRINT "WATCH HE COUNT BACKWARDS." 

20 PRINT "WHAT NUMBER SHOULD I START F 
ROM?" 

30 INPUT X 
40 FOR Z-l TO X 
30 PRINT X 

60 PRINT "????????????????" 

70 NEXT Z 
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- 2 - 

PATTERN MAKING 

This program prints out a pattern. One aspect of the pattern is left out for 
you to figure out. 


TRY TO MAKE YOUR OMN PATTERNS 

iH* *** XXX Y.Y. Y.Y.Y. »» XXX Y.\ 

y. xxx ****** **-** y.y.y y.y. xxx 

XXX Y.Y. Y.Y.Y. XXM Y.Y.Y. Y.Y. Y.Y.Y. 

y.y. y.y.y. y.y.y. y.y. y.y. 

y. ««« «« xxx xx xxx xxx 

XX XXX Y.Y.Y. Y.Y. XXX W: 

xxx XX XXX **-** «->Ht XXX XX xxx **-*• 

w >hh* y.y.y. xx xxx *** *h* xxx xx 

XXX * *** * * -X-X xxx XXX XX XXX x x x XX xxx X 

XX XX XXX »xw Y.Y.Y. XX XXX WMW iHt 

»** xxx xx y.y.y. ****** xx y.y.y. xx y.y.y. 

XX ♦♦*(-» XXX xx xxx xx xxx 

mmw xxx xx xxx ****** xx xxx y.y.y. y. 

X XXX xxx **-** xx m y.y.y. y.y. y.y.y. xxx x-x xxx 

XXX XX XXX XXX x-x xxx XXX XX XXX XXX 

X* XXX XXX XX XXX XXX X-X XXX XXX XX XX 

X xxx xx xxx XXX XX XXX xxx xx xxx XXX: 

XX XXX XXX XX xxx XXX XX XXX MXX xx xj 

xx XXX XX XXX xxx xx xxx XXX XX XXX xx 

x xx xxx XXX XX XXX xxx xx xxx XXX XX 

XXX xxx xx xxx XXX XX XXX xxx xx xxx y, : 

XX XX XXX XXX X-X **» XXX XX XXX X X X XX; 


10 PRINT -HERE'8 A EASY PATTERN TO PRI 
NT WITH A COMPUTER.” 

20 PRINT "TRY TO MAKE YOUR OWN PATTERN 

8 ” 

30 FOR X-l TO 730:NEXT X 
40 PRINT ”?????????????????” 

30 PRINT 11 XXX XX XXX ”| 

60 GOTO 40 
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<*cn 


A GOOD DAY 

This program asks you if it's a good day for you. Here are the responses 


AOY 

N 

THIS A GOOD DAY FOR YOU? 
ES 

SHARE IT WITH YOUR FRIENDS 


READY 






And here is the program with the missing line of code: 


10 PRINT "IS THIS A GOOD DAY FOR YOU?" 
20 PRINT "?????????????" 

30 INPUT A* 

40 IF A*«"YES" THEN PRINT "SHARE IT WI 

TH YOUR FRIENDS":END 

30 IF A*«-"NO" THEN SOTO 100 

lOO GRAPHICS 7:COLOR 1 

110 PRINT "MAYBE THIS MILL MAKE YOU FE 

EL BETTER..." 

120 PLOT 139,60 

130 DRAWTO RND<1)*159,RND<1)*B0 
140 GOTO 120 
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- 4 - 

GUESS 

This is a letter counting game. It flashes a word on the screen and asks you 
to guess how many letters it has. You can count the letters but estimating 
the length of the word is more fun. 


HOPEFUL 


YOUR GUESS? 

?7 

GMERT• TRY ANOTHER 


Here is the program with the missing line of code: 


10 DIM A*(20),B*(20),C*(20) 

20 A*-"HOPEFUL" 

30 B*-"INDEPENDENCE" 

40 C*-“TROUBLE" 

50 PRINT "HERE ARE SOME WORDS TO STUDY 
FOR A FEW " 

60 PRINT "SECONDS. GUESS HOW MANY LET 
TERS ARE" 

70 PRINT "IN EACH WORD." 

80 FOR X-l TO 750:NEXT X 

lOO PRINT "??????????????????" 

110 PRINT «6|A* 

120 PRINT "YOUR GUESS?" 

130 INPUT W 

140 IF W-LEN(A*> THEN PRINT "GREAT! TR 
Y ANOTHER":FOR X-l TO 750:NEXT X:GOTO 
200 
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150 IF WOLEN<A*> THEN PRINT "TAKE ANO 
THER LOOK“:FOR X-l TO 750:NEXT X:GOTO 
100 

200 GRAPHICS 2:COLOR 1 
210 PRINT #6|B* 

220 PRINT "YOUR GUESS?" 

230 INPUT Z 

240 IF Z-LEN<B*) THEN PRINT "GREAT! TR 
Y ANOTHER"IFOR X-l TO 750:GOTO 300 
250 IF ZOLEN(B*> THEN PRINT "TAKE ANO 
THER LOOK"IFOR X-l TO 750:NEXT X:GOTO 
200 

300 GRAPHICS 2:COLOR 1 
310 PRINT #6|C* 

320 PRINT "YOUR GUESS?" 

330 INPUT H 

340 IF H-LEN(C*> THEN PRINT "GREAT! YO 
U GOT ALL THREE":END 

350 IF H< >LEN <C*> THEN PRINT "TAKE ANO 
THER LOOK":FOR X-l TO 750:NEXT XlQOTO 
300 
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- 5 - 

NEXT LETTER 

This program asks for a letter and then gives you the next letter in the 
alphabet. It won’t be tricked if you ask for the letter after Z. 


RUN 

GIVE ME A LETTER IN THE ALPHABET 

AND- I'LL TELL YOU THE NEKT LETTER. 

DON’T TRY TO TRICK ME MI T H Z BECAUSE 
I’VE ALREADY LEARNED THAI' IT IS THE 
LAST LETTER. 

? M 

THE NEKT LETTER IS X 

READY 

RUN 

GIVE ME A LETTER IN THE ALPHABET 

AND I’Ll. TELL YOU THE NEKT LETTER. 

DON’T IRY TO TRICK ME MIT LI Z BECAUSE 
I’VE ALREADY LEARNED THAT IT IS THE 
LAST LETTER. 

?R 

THE NEKT LETTER IS S 

READY 


10 PRINT "GIVE ME A LETTER IN THE ALPH 
ABET” 

20 PRINT "AND I'LL TELL YOU THE NEXT L 
ETTER. M 

30 PRINT "DON'T TRY TO TRICK ME WITH Z 
BECAUSE" 

40 PRINT "I'VE ALREADY LEARNED THAT IT 
IS THE" 

30 PRINT "LAST LETTER." 

60 DIM A*<26>,B*<1> 

70 LET A*«"ABCDEFGHIJKLMNOPQRSTUVWXY Z" 
SO INPUT B* 

90 FOR X-l TO 26 

100 PRINT "??????????????????????" 

110 NEXT X 


77 



- 6 - 

THIRD LETTER 

Here is a puzzle that uses the same concept as Puzzle 5. You should be able 
to get this one more easily: 


RUM 

MHDT X S YOUR NAME ? 

?SOCflflTE5 

DID YOU KNOH THAT THE THIRD 
LETTER IN YOUR NAME 15..C 

READY 


10 PRINT "WHAT 18 YOUR NAME?" 

20 DIM A*(25) 

30 INPUT A* 

40 PRINT “DID YOU KNOW THAT THE THIRD" 
30 PRINT "LETTER IN YOUR NAME 18.."» 

60 PRINT "?????????????????" 
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- 7 - 

NEXT NUMBER 

Recently you tried a "next letter" puzzle. Here is a next number puzzle: 


RIJN 

MHAT NUMBER COMES AFTER..38 

?37 

TRY AGAIN... 

?32 

TRY AGAIN . . . 

JL 

TRY AGAIN... 

TRY AGAIN... 

?39 

ABSOLUTELY! 

READY 


10 PRINT "NHAT NUMBER COMES AFTER.."I 
20 LET X-INT(RND<1)*100)+1 
30 PRINT X 
40 INPUT Y 

50 IF Y-X+l THEN PRINT “ABSOLUTELY! " S E 
ND 

60 IF YOX+1 THEN PRINT "TRY AGAIN..." 
70 PRINT "??????????????????" 
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- 8 — 

CALCULATE 

Here is a simple arithmetic challenge: 


RUN 

PICK A NUMBER FROM I TO 20 

?S 

MMA I IS 4 TIMES THAT NUMBER MINUS 

?14 

TRY AGAIN... 

?X2 

TRY AGAIN... 

?17 

YOU GOT XT! ! 

READY 


Here is the program for it with a missing line: 


lO PRINT “PICK A NUMBER FROM 1 TO 20" 
20 INPUT X 

30 PRINT “WHAT IS 4 TIMES THAT NUMBER 
MINUS 3?" 

40 INPUT Y 

30 PRINT "????????????????????" 

60 IF Y-Z THEN PRINT "YOU GOT IT!!":EN 
D 

70 IF YOZ THEN PRINT "TRY AGAIN..." 

GO GOTO 40 


3 ? 
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- 9 - 

COMPARISON 

This program generates two random numbers and asks you which is the 
larger, it does not give you a second chance but gives you another problem 
instead. 


HERE • S A RERL 5IMPI.E MATH GAME 
WHICH NUMBER IS LARGER 


?25 

RIGHT, TRY ANOTHER ONE 
WHICH NUMBER IS LARGER 


? IS 

SORRY TRY ANOTHER EXAMPLE 
WHICH NUMBER IS LARGER 


?44 

RIGHT, TRY ANOTHER ONE 
WHICH NUMBER IS LARGER 

27 OR 18 


Figure out the missing line: 

lO PRINT "HERE’S A REAL SIMPLE MATH BA 
ME" 

20 LET X-INT(RND<l)»SO> 

30 LET Y-INT<RND(1>*30> 

40 IF X-Y THEN GOTO 20 

30 PRINT "WHICH NUMBER IS LARGER" 

60 PRINT 

70 PRINT X,"OR",Y 
80 PRINT 
90 INPUT Z 

100 IF Z-X THEN GOTO lOOO 

110 PRINT "???????????????????" 

lOOO IF X>Y THEN PRINT "RIGHT, TRY ANO 

THER ONE":GOTO 20 

1010 PRINT " SORRY TRY ANOTHER EXAMPLE 
":GOTO 20 

2000 IF Y>X THEN PRINT "RIGHT, TRY ANO 
THER ONE":GOTO 20 

2010 PRINT " SORRY TRY ANOTHER EXAMPLE 
":GOTO 20 
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- 10 - 

DICE 

This program sets up the computer to roll a pair of dice and then gives you 
the total of the two rolls. It can be incorporated into many game programs. 


RUN 

I KNOW 
HERE * 5 

HOW TO 
MY ROLE 

ROLE DICE 


DIE 1 : 

I 



DIE 2 : 

3 



TOTAL: 

4 



DO YOU 
?YE5 
HERE • S 

WANT ME 

MY ROLE 

TO ROLL 

AGAIN? 

DIE I s 

5 



DIE 2 : 

3 



TOTAL: 

S 



DO YOU 

?NO| 

WANT ME 

TO ROLL 

AGAIN? 


Fill in the missing line: 


lO PRINT "I KNOW HOW TO ROLE DICE- 
20 PRINT "HERE'S MY ROLE:" 

30 LET X"INT(RND(1)*6)+1 
40 LET Y-INT(RND<1)*6>+l 
30 PRINT 

60 PRINT “DIE l:-,X 
70 PRINT 

80 PRINT “DIE 2:",Y 
90 PRINT 

lOO PRINT "?????????????????????- 

UO PRINT 

120 PRINT "DO YOU WANT ME TO ROLL ASAI 
N?" 

130 CLR 
140 DIM A«<3> 

130 INPUT A« 

160 IF A4--YES" THEN GOTO 20 
170 PRINT "THAT'S ALL FOLKS.":END 
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Answers 


1 


10 PRINT "WATCH ME COUNT BACKWARDS." 

20 PRINT "WHAT NUMBER SHOULD I START F 
ROM?" 

30 INPUT X 
40 FOR Z-l TO X 
50 PRINT X 
60 LET X-X-l 
70 NEXT Z 


The missing line decreases the size of X each time the program runs 
through the loop. You could count backwards by 2's, 3’s, or any other 
number. 


2 


lO PRINT "HERE’S A EASY PATTERN TO PRI 
NT WITH A COMPUTER." 

20 PRINT "TRY TO MAKE YOUR OWN PATTERN 
S" 

30 FOR X-l TO 750: NEXT X 
40 PRINT "*** ** #** "| 

50 PRINT “XXX XX XXX "I 
60 BOTO 40 


It is very easy to make patterns with your Atari. In fact, one chapter of 
this book contains a whole series of moderately complex pattern puzzles. 
What you have to look for in making patterns is the arrangement of blank 
spaces as much as the placement of symbols. The ; is what creates a 
continuous pattern across the screen and. since the line scrolls around, you 
will often find patterns that don't look at all like you expect them to. It is a 
delightful idle activity to explore patterns at random and develop an intui¬ 
tive sense of how lines like these will look when repeated on the screen in 
an infinite loop: 
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***** ^ *®*s*s ***** 

T.7.7.7.7. ’S'i’i’S'S 

ass vv v ccc 3:3 wv @@a 


3 


10 PRINT “IS THIS A GOOD DAY FOR YOU?" 
20 DIN A*(3) 

30 INPUT A« 

40 IF A*-“YES“ THEN PRINT "SHARE IT WI 
TH YOUR FRIENDS":END 
50 IF A*«"NO" THEN GOTO 100 
lOO GRAPHICS 7:COLOR 1 

110 PRINT “MAYBE THIS MILL MAKE YOU FE 
EL BETTER..." 

120 PLOT 159,80 

130 DRAWTO RND(1)*159,RND(1> *80 
140 SOTO 120 


The challenge here is to define the lower left-hand point of the Gra¬ 
phics 7 screen. Try to do the same program in other Graphics modes and 
see how the modes differ. You can mix Graphics modes within a program 
and it is useful to explore them all in order to be able to choose the right 
Graphics format for your programming purposes. 


4 


10 DIM A*(20),B*(20),C*<20) 

20 A*="HOPEFUL" 

30 B*=«"INDEPENDENCE" 

40 C*-"TROUBLE" 

50 PRINT "HERE ARE SOME WORDS TO STUDY 
FOR A FEW " 

60 PRINT "SECONDS. GUESS HOW MANY LET 
TERS ARE" 

70 PRINT “IN EACH WORD." 

80 FOR X-l TO 750*.NEXT X 
100 GRAPHICS 2:COLOR 1 
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110 PRINT #6;A* 

120 PRINT “YOUR GUESS?" 

130 INPUT W 

140 IF W-LEN<A*> THEN PRINT “GREAT! TR 

Y ANOTHER":FOR X-l TO 1500:NEXT XZGOTO 
200 

150 IF W<M.EN(A*) THEN PRINT "TAKE ANO 
THER LOOK":FOR X-l TO 750:NEXT X:GOTO 
100 

200 GRAPHICS 2:COLOR 1 
210 PRINT #&|B* 

220 PRINT "YOUR GUESS?" 

230 INPUT 2 

240 IF Z-LEN<B*> THEN PRINT "GREAT! TR 

Y ANOTHER":FOR X-l TO 1500:GOTO 300 
250 IF Z< >LEN(B*> THEN PRINT "TAKE ANO 
THER LOOK":FOR X-l TO 750:NEXT X:GOTO 
200 

300 GRAPHICS 2:COLOR 1 
310 PRINT #6|C* 

320 PRINT "YOUR GUESS?" 

330 INPUT H 

340 IF H-LEN1C4) THEN PRINT "GREAT! YO 
U GOT ALL THREE":END 

350 IF HOLEN(C*> THEN PRINT “TAKE ANO 
THER LOOK":FOR X-l TO 1500:NEXT X:GOTO 
300 


This program uses Graphics 2, a large letter print mode. The program 
also uses a command you may not be familiar with but which is very useful: 
LEN(A$). This command gives you the length of a word or sequence of 
letters stored in a string. Thus, if you DIM A$(50) and INPUT A$ as "THE", 
LEN(A$)=3. It can let you know how much room is left in a string, can 
create sizewvord relationships, etc. You will probably encounter it in many 
programs you copy from computer magazines. 


5 


Here is the program to fill out: 


10 PRINT "GIVE ME A LETTER IN THE ALPH 
ABET" 

20 PRINT "AND I’LL TELL YOU THE NEXT L 
ETTER." 


85 



30 PRINT "DON’T TRY TO TRICK ME WITH Z 
BECAUSE" 

40 PRINT "I’VE ALREADY LEARNED THAT IT 
IS THE" 

50 PRINT “LAST LETTER." 

60 DIM A*(26),B*(1) 

70 LET A*“"ABCDEFGHIJ KLMNOPQRSTUVWX YZ" 
80 INPUT B* 

90 FOR X-l TO 26 

lOO IF B*«A*(X,X) THEN PRINT "THE NEXT 
LETTER IS "I A*(X+l,X+l) 

110 NEXT X 


The missing line involves using a function. A$(X,X) which gives you the 
Xth member of A$. It is more fully explained in the answers to other 
puzzles that use the same function. What you should note here is that 
A$(X+1,X+1) gives you the letter or symbol stored after X in A$. What do 
you think you'd get from A$(X+3,X+3)? 


6 


10 PRINT "WHAT IS YOUR NAME?" 

20 DIM A*(25) 

30 INPUT A* 

40 PRINT “DID YOU KNOW THAT THE THIRD" 
50 PRINT "LETTER IN YOU NAME IS.."I 
60 PRINT A*(3,3) 


7 


10 PRINT "WHAT NUMBER COMES AFTER.."J 
20 LET X**INT (RND (1) *100) +1 
30 PRINT X 
40 INPUT Y 

50 IF Y-X+l THEN PRINT "ABSOLUTELY!":E 
ND 

60 IF YOX+1 THEN PRINT "TRY ABAIN..." 
70 GOTO 40 
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This puzzle deals with setting up a loop to let a person try to correct a 
wrong answer. The reference of GOTO statements is essential to how a 
program runs. If you tried 

70 GOTO 20 

the target number and, therefore, the correct answer would be changed. It 
is useful to deliberately mess up your own programs and see what happens. 
Sometimes you'll make interesting and useful discoveries. Other times 
you'll internalize ERROR statements and help yourself create bug free 
programs. 


8 


10 PRINT “PICK A NUMBER FROM 1 TO 20" 
20 INPUT X 

30 PRINT "WHAT IS 4 TIMES THAT NUMBER 
MINUS 3?" 

40 INPUT Y 
30 LET Z«4*X-3 

60 IF Y-Z THEN PRINT "YOU SOT IT*!“:EN 
D 

70 IF YOZ THEN PRINT "TRY AGAIN...” 

80 GOTO 40 


In this case, you have to figure out how to perform the calculation 
asked for correctly and then give its result a new variable name, Z. If you 
forget to use this new variable you won't be able to use the result of the 
calculation in other parts of the program without doing a recalculation. In 
many programs, the introduction of new variables to indicate the results of 
processes or calculations is a convenient programming tool. 


9 


10 PRINT "HERE’S A REAL SIMPLE MATH GA 
ME" 

20 LET X-INT<RND<1)*30> 

30 LET Y-INT<RND(l)*SO> 

40 IF X-Y THEN GOTO 20 

50 PRINT "WHICH NUMBER IS LARGER" 

60 PRINT 


87 



70 PRINT X,"0R",Y 
BO PRINT 
90 INPUT Z 

100 IF Z-X THEN GOTO lOOO 

110 IF Z-Y THEN GOTO 2000 

lOOO IF X>Y THEN PRINT "RIGHT, TRY ANO 

THER ONE":GOTO 20 

1010 PRINT " SORRY TRY ANOTHER EXAMPLE 
“:GOTO 20 

2000 IF Y>X THEN PRINT "RIGHT, TRY ANO 
THER ONE":GOTO 20 

2010 PRINT " SORRY TRY ANOTHER EXAMPLE 
":GOTO 20 


This is another puzzle in which you have to figure out the correct 
GOTO reference. Instead of sending you back to an earlier part of the 
program as most of the GOTO puzzles did. this one sends you to the end of 
the program. It is important to realize that the GOTO command can allow 
you to jump all over your program. 


10 


10 PRINT "I KNOW HOW TO ROLE DICE" 

20 PRINT "HERE’S MY ROLE:" 

30 LET X-INT<RND<1>*6>+1 
40 LET Y-INT(RND<1)*6)+1 
30 PRINT 

60 PRINT "DIE l: ", X 
70 PRINT 

GO PRINT "DIE 2:",Y 
90 PRINT 

100 PRINT "TOTAL!",X+Y 
110 PRINT 

120 PRINT "DO YOU WANT ME TO ROLL ABAI 
N?" 

130 CLR 
140 DIM A«<3) 

130 INPUT A* 

160 IF A*-"YES" THEN GOTO 20 
170 PRINT "THAT'S ALL FOLKS.":END 

Line 100 lets you both add the total and print it out at the same time. 
There are times when it is convenient to use the PRINT statement in 
conjunction with a computation, especially if you do not want to store the 
result of the computation in any other part of the program. 
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T he Atari computer has a control graphics keyboard that is invisible 
unless you press the control key CTRL and then a letter. (Consult your 
ATARI BASIC Reference Manual for a diagram of the Control Graphics 
Keyboard.) 

The shapes on the CTRL keyboard can be used to make very interest¬ 
ing designs and pictures. They can also be mixed with letters to make 
borders and designs within your ordinary text. They do not need a special 
Graphics command and print straight from the keyboard. They can also be 
embodied in PRINT statements along with numbers and letters and can be 
stored in dimensioned strings the way letters can. Here are a few simple 
examples of the way control character graphics programs work. They 
should help familiarize you with their function and help you understand 
how to solve the puzzles in this chapter. 

The first sample simply uses the combination [CTRL][,] to produce a 
heart which is used as a border around a declaration of love: 


READY 
I© PRINT 
2: © PRINT 
SO PRINT 
40 PRINT 
RIIN 

* I LOVE YOU 
V YES I DO * 

READY 


* I LOVE YOU *•' 

YES I IOQ *•' 

W ^ ■* V + W * +PW v- 1 


The second example uses the numbers 1, 2, 3, and 4 along with the 
[CTRL] [.] character to produce a field of numbers followed by diamonds 
that have the same value as the numbers. Notice that the whole program is 
just two lines long. 
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to PRTNT"1 ♦ 2 4 4 ;?♦♦♦ 

20 GOTO AO 

RUM 


A 

♦ 


2 

4 

♦ 


3 

444 


4 

44 

♦ 

♦ A* 


2 

4 

4 


3 

4 

4 

4 


4 

4 

4 

4 

4 

A. 

4 


2 

4 

♦ 


3 

4 

4 

♦ 


4 4 4 

♦ 

4 

A* 


244 


3 

4 

4 

4 


4 

4 

4 

4 

4 

A 

4 


2 

4 

4 


3 

♦ 

♦ 

♦ 


4 

♦ 

♦ 

♦ 

4 A 4 


2 

44 


344 

4 


4 

4 

4 

4 

4 

A 

4 


2 

4 

4 


3 

4 

4 

4 


4 

♦ 

♦ 

♦ 

♦ 

A 

♦ 


2 4 4 


3 

44 

♦ 

4 * 

4 

4 

4 

A 

4 


2 

4 

4 


3 

4 

4 

4 


4 

4 

4 

4 

4 

A 

«*• 


2 

♦ 

♦ 


34* 

♦ 


44 

* 

♦ ♦A 

4 


2 

4 

4 


3 

4 

4 

4 


4 

4 

4 

4 

4 

A 

4 


2 

♦ 

♦ 


3 

♦ 

♦ 

♦ 

4 4 

♦ 

♦ 

♦ A 

♦ 

2 # 

4 


3 

4 

4 

4 


4 

4 

4 

4 

4 

A 

4 


2 

4 

4 


.■> 

♦ 

4 

♦ 


4 

♦ 

♦ 

♦ ♦A 

♦ 


2 ♦ 

4 

3# 

4 

4 


4 

4 

4 

4 

4 

A 

4 


2 

4 

4 


3 

4 

4 

4 


A 

♦ 

♦ 

4 

♦ 

A 

♦ 

2 4 

4 


3# 

♦ 

♦ 4 

4 

4 

4 

4 

A 

4 


2 

4 

4 


3 

4 

4 

4 


4 

4 

4 

♦ 

4 

t 

♦ 


2 

♦ 

♦ 

3 ♦ 

♦ 

♦ 

4 

♦ 

444 

A 

4 


2 

4 

4 


3 

4 

4 

4 


4 

4 

4 

4 

4 

.1 

4 


2 

4 

4 


3 

♦ 

♦ 

♦ 4 

♦ 

♦ 

44 

A 

♦ 2 

4 

4 


3 

4 

4 

4 


4 

4 

4 

4 

4 

A 

4 


2 

4 

4 


A 

4 

♦ 

4 


4 

♦ 

444 

A 

♦ 

2 

♦ 

♦ 3 

4 

4 

4 


4 

4 

4 

4 

4 

A 

4 


2 

4 

4 


3 

4 

4 

♦ 


4 

♦ 

4 

♦ 

♦ 

A 

♦ 2 

♦ 

♦ 

3 

♦ 

44 

4 

4 

4 

4 

4 

A 

4 


2 

4 

4 


3 

4 

4 

4 


4 

4 

♦ 

4 

♦ 

A 

4 


2 

♦ 

♦ 3 

♦ 

4 

♦ 

4 

444 

4 

A 

4 


2 

4 

4 


3 

4 

4 

4 


4 

4 

4 

4 

4 

A 

♦ 


2 

♦ 

* 


3 

♦ 

*■ 


























The third program, which also consists of only two lines, uses combi¬ 
nations of control characters. The triangular shape is made out of [CTRL]H 
followed by [CTRL]J and the table-like shape comes from combining 
[CTRL]Q and [CTRL]E. Notice that the placement of spaces on line 10 
controls how the program looks when it runs. You might want to experi¬ 
ment with a few design programs before trying to solve some of the design 
problems in this chapter. 


AO PRINT 
20 GOTO AO 


READY 
RUN 



The fourth program is a variant of the third. The table forms have been 
removed to create a mountain range effect: 
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I 1ST 


10 PRINT '* 
20 GOTO 10 

READY 



Now for some control graphics problems. Use the [CTRL] character 
chart and the sketch pad in the appendix to help you solve them if you 
haven’t memorized the control characters and don't happen to have a 
computer available. 
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PLASTIC SURGERY I 

Here is a face, perhaps not the most beautiful one in the world but never¬ 
theless one with character. Using [CTRL] graphics try to reconstruct it. 




- 2 - 

PLASTIC SURGERY II 

Here's the same face scrambled up as well as the program that generates 
the scramble. Try to reconstruct the original face by reordering the line 
numbers without looking at the answers to [CTRL] Puzzle 1. The answer to 
this puzzle is exactly the same as the answer to Puzzle 1. 



LIST 

O REM CTRL85 
JLO PRINT 
20 PRINT 
30 PRINT 
40 PRINT 
50 PRINT 
GO PRINT 
70 PRINT 
»© PRINT 
SO PRINT 
I. ©©PRINT 
UOPRINT 

READY 




/• 


Y 
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- 3 - 

TITLE PAGE 

This program asks for someone's name and then prints out a simple title 
page for a book. Construct a program that does this for any name input. 


RUN 

WtlAT IS YOUR NAME? 
?ERICA SIMTU 




-4 to 9- 

DESIGN DECIPHERING 

This is a series of [CTRL] character designs for you to decipher and try to 
reproduce. Remember that some of the characters are made up of combi¬ 
nations of other characters. Also, the use of blank spacing is essential to get 
the design. 1 suggest you do some sketching and experimenting with com¬ 
binations of [CTRL] characters in the course of trying to reproduce these 
designs. There is a sketch pad in the Appendix which is a reproduction of the 
grid on the Graphics 0 screen which uses regular print as well as [CTRL] 
graphics. 


[CTRL] Design 4: Almost Music 
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[CTRL] Design 5: Dizzy Roads, Shaky Bridges 






































«rt« 


[CTRL] Design 9: Dense Environment 
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- 10 - 

ALPHABET RECONSTRUCTION 

Now that you've spent some time dealing with some fairly complicated 
designs, here’s a simple alphabet to reconstruct. It doesn’t use [CTRL] 
characters but does use the keyboard and the program structure of BASIC 
in the same way that the previous program did. 


MNOP OR 3 A FIJM M X ft Y7 ABC DEFG HIJK 
I MM OP QR5 A TUV W X A YZ ABC l)EFG HIJK 
LhNOP RR5 A TUM H K ft YZ ABC DEFG HIJ ! 

K l MNOP OR 3 A TUM M X A YZ ABC l>FFG HI ! 

JK I MNOP OR5 A TUM N X A YZ ABC 1>EFG H 

IJK I MNOP ORS A TUM W X A YZ ABC l>EFG 

HIJK I MNOF" ORS A fUU M X A YZ ABC l>FFG 

HIJK LMNOR ORS A TUM M X A YZ ABC DEF ; 

G HIJK LMNOP ORS A TUM M X A YZ BC DEF i 

G HIJK LMNOP ORS A IUM M X A YZ ABC OF 

FG HIJK 1 MNOP ORS A TUM M X A YZ ABC D 

EFG HIJK LMNOP ORS A TUM W X A YZ ABC 

DEFG HIJK LMNOP ORS A IUM W X A YZ ABC: 

DEFG HIJK I. MN OP ORS A TUM M X A YZ A B : 

C OFFG HIJK LMNOP ORS A TUM LI X A YZ A: 
BC OFFG HIJK LMNOP ORS A TUM M X A YZ 

ABC l>EFG HIJK LMNOP ORS A TUM M X A Y Z : 

ABC PF.FG HIJK I MNOP ORS A TUM M X A Y 

Z ABC OFFG HIJK LMNOP ORS A TUM MX A 
YZ ABC OFFG HIJK LMNOP ORS A TUM M X A 

YZ ABC DEFG HIJK LMNOP ORS A TUM W X 

A YZ ABC DEFG HIJK LMNOP ORS A IUM M X 
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-n- 

NUMBER GRAPHICS 

Now that you've had a chance to relax, here's a slightly more complex 
problem using a mix of [CTRL] graphics and numbers. Notice that the 
numbers change in the design in a regular way. The program structure is 
somewhat different than the ones you've seen before but the program is 
not much longer. 




- 12 - 

FINISH THE TABLE 

Put the missing leg on the table using [CTRL] graphics. Of course, you'll 
have to write the whole program for the table to do it. 


RIJN 

I 

irk 

ezh . — 

u 

READY 

PUT THE OTHER I.EG ON THE TABLE 
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-13- 

STORMY WEATHER 

The sea is not calm tonight as you can see from the screen dump below. 
Under that is a puzzling sea, one that questions the very nature of calm¬ 
ness. Can you write programs for each of these screen dumps? 





















- 14 - 

SYMBOL ADDITION 

Here is a game using numbers and [CTRL] characters. Three symbols 
represent numbers. You are asked to memorize the symbol/number equi¬ 
valents and then do addition using the symbols. It is a good memory game 
that can be made quite complex. Write a program for this game. 


RUN 

HERE'S rt LITTLE SYMBOL-NUMBER 

STUDY THIS TABLE OP VALUES: 

¥ = 1 

+ = 2 

= 3 


WHEN YOU 

PRESS 7 


IAVE THE TABLE MEMORIZED 




. ‘ # *.» i • : 




HOW 

MUCH DO THESE ADD UP TO? 

Vi": Vi Vii Vii iii iii 

V 

¥ V ¥ ?6 

Ijl'iiy!::'::: 

TRY 

■*>3 

ANOTHER TIME. 

: : v:‘ 

TRY 

?S 

ANOTHER TIME. 


YOU 

GOT IT DOWN• 
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-15- 

SIMPLE ANIMATION 

Here are two simple animations you can make with control character 
graphics. You can actually get quite complex with them, although, of 
course, you won't be able to duplicate the work of Walt Disney or George 
Lucas. With Graphics 8, you might be able to get close but here is a modest 
stick figure beginning. These two dumps show the repetitions of a figure 
that moves up the screen while changing position and posture. See if you 
can recreate the figures and have them move as in the screen dumps. 





Answers 

— 1 and 2- 


0 R 
1 0 
20 
30 
40 
50 
60 
20 
GO 
5-0 
J 00 
JL I.O 


EM CTRi 
PRINT • 
PRINT * 
PRINT * 
PRINT ■ 
PRINT ■ 
PRINT ■ 
PRINT • 
PRINT * 
PRINT " 
PRINT ■ 
PRINT ■ 


v._ S' 


0 REM CTRI. 6II 
1 O 

Bo 

30 
40 
SO 
60 
20 
SO 
^0 
100 


PRIN T 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


S - -- N 


*TTTTT‘ 


110 PRINT 


Notice that there are two answers given, one that duplicates the face 
exactly and a second that pushes the chin off at lines 100 and 110. When 
run they will give you the exact same thing. The reason that answer 2 
seems pushed in is that your Atari automatically puts a space between the 
line number and the command following it. Since 10 to 99 have only two 
digits, they line up. 100 and 110 have three digits so they push the 
command over one space. You have to back it up in your mind to recon- 
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struct the image the program will run. This is important to remember 
when you list and edit control character graphics. 


3 


LIST 

O REM CTRL3U 
AG DIM A$(50) 

PRINT "WHAT 
INPUT AS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


20 
30 
40 
SO 
60 
70 
80 
SO 
100 
I 10 
120 


IS YOUR NAME?' 


¥ READ THIS BOOK BY: 


■ ; OS 


PRINT 

END 




4 to 9 


Almost Music 


LIST 


0 REM 

1 O PRI 
20 GOT 

CTRLIAU 
N T r 

O AO 

READY 
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It wn-j 

nt ooo 


Dizzy Roads, Shaky Bridges 


© REM CTRH2U 

JLO PRINT •• i-1 ♦ | 

20 GOTO 10 


Stripes at Cross Purposes 


REM CTRL91 


GOTO IO ^ 9 
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Clear Cutting in the Mountains 


O REM CTRL2U 
1© PRINT r r r r 

20 GOTO JLO 


Fences and Roads 


LIST 

© REM CTRLIOU 
JL© PRINT 

20 print •• Mn Wh l-H 

3© GOTO JLO 

READY 
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Dense Environment 


LI 

ST 


O 

REM 

CTRL11U 

10 

PRI 

NT -■■Ji • 

20 

GOT 

O 10 

RE 

ADY 


■ 




10 


l. I S T 

© REM CTRL12U 
1 © PRINT "ABC 
20 PRINT "QRS 
3© GOTO ±0 

READY 


DEFG HIJK 
TIJ V W H 


I.MNOP 

ft YZ ■ 


Notice that I used three lines in the program instead of two. Using the 
; at the end of lines 20 and 30 creates the continuity of the program. 
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1. I5T 


G 

REM CTRL5U 


to 

FOR X=1 TO 

JLO 

2:0 

FOR Y=l TO 

10 

30 

PRINT •' l-H 

"JYJ 

4 O 

NE HT V 


50 

NEXT X 


READY 


■ 




Notice that the changes in the numbers throughout the program are 
determined by the nested FOR/NEXT loops. If you are not familiar with 
nested loops, it would be useful to trace the program step by step. For 
example, the X loop instructs you to print what is inside the Y loop 10 
times and then go back to the start and keep on repeating the Y loop 10 
full runs. 

Once you understand this and trace it through you should be able to 
use nested loops in many different contexts. 


12 


This drawing problem can lead to dozens of others. Try to make up 
some for your family and friends, and have them be as creative in drawing 
and challenging you as well. 


Ill 



LIST 


O REM CTRL4LI 
10 PRINT *■ 

20 PRINT '* 

30 PRINT " 

40 PRINT " 

50 PRINT " i- 

60 PRINT 
70 PRINT 
80 PRINT 
SO PRINT 

READY 


”Ui 


i.immim:: 


I *• 


13 


O REM CTRL6U 

10^PRINT "THE SEA IS NOT CALM TONIGHT.: 

20 PRINT 
30 PRINT 
40 GOTO 20 
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NXMtfPOMNPK-JHh hhfHO^H'sDCDMCftf! *«N»H© r :|gjj 2|*MK>‘ H 


LIST 

O REM CT RL65 

G PRINT "THE 5EA IS NOT CALM TONIGHT. 

O PRINT ^ ^ ^ • • 

O GOTO 20 

EADY 


14 


1ST 0,159 

REM C T R L 7 S 
0 PRINT ••HERE' 
GAME : 


S ft LITTLE 


> Y MB O I. - NII MB E 


O DIM ASCII ,CSC1) 

0 LET A$ = "¥":LET B$ = "+":LET C$ = *'-G" 

0 PRINT ••STUDY THIS TABLE OF U ft L U E S S '* j-.j 

O PRINT •• V = l" 

0 P R I N T 

0 PRINT *■ 4* - 2** 

©PRINT 

O P RIN T ' • •*■ = 3 ■ • 

O O P R IN T 

lO PRINT "WHEN YOU HAVE THE TABLE MEMi 

R I Z E D * • 

20 PRINT "PRESS 7" 

30 INPUT X 

40 IF K=7 THEN PRINT "*" 

SO ERROR- LET Y-S3?????????????? 

SO ERROR- LET Z-0????????????????? 

70 PRINT "HOW MUCH DO THESE ADD UP TO 


80 FOR M=A TO Z 

SO IF Y = .L THEN PRINT 

OO IF Y = 2 THEN PRINT 

lO IF Y=3 THEN PRINT 

20 NEXT M 

30 INPUT N 

4 0 IF N “ Y**Z THEN PRINT 
N ! " : END 
50 PRINT 


:± 


•YOU GOT IT DO; 


•TRY ANOTHER TIME . 


1 : GOTO 2 3 0; 
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15 


READY 

LIST 


e 

REM CTRLAU 


10 

PRINT ■ ■ 

A< • 


20 

PRINT “ 

1 i-TT* ** III 

— 

30 

PRINT ' * 


40 

PRINT •* 

i 1 *• iiiii 


SO 

PRINT 



59 

PRINT 



60 

FOR H - A 

TO i 00 : NV X I X 


2© 

PRINT ■ ■ 

; : .;;in 


©O 

P R I NT " 

r—"* |_77"* ** jjHHH-jjlj 


SO 

PRINT " 


10 

O PRINT ■ - 

/ \* • iipiiii 


11 

O PRINT 



12 

O FOR X ” A 

i o a o o : n f x r h ; j* 

— 

A3 

O GOTO 10 



RE 

ADY 


— 


to P 

r i n r " 


— 

20 P 

RINT " 



3 0 P 

RENT * * 


4 0 P 

RINT •• 



50 P 

RINT 

mmm 


59 P 

RINT 


_ 

50 F 

OR X = A 

TO AO0:NEXT X M$M 


20 P 

RINT ■■ 

HPim;!: 


©O P 

RINT *■ 

*—|— 1 •• 

— 

SO P 

RINT *■ 

-A* • sss; 


U ! :i A 0 O 

PRINT 

•• / \ •• ill! 


1 A O 

PRINT 


— 

120 

FOR X — 

A TO 1O0:NEXT X 


A 3 O 

PRINT 



A 4 0 

PRINT 

" -fr** 


A50 

AGO 

PRINT 

PRINT 

:: ill 


A 20 

PRINT 

.. / \ 


180 

FOR X = 

A TO A0O:NEXT X 


190 

GOTO AO 

- 

READ 

V 


- 


The key structural elements of these programs could be described as: 

PRINT Figure 1—PAUSE TO SEE IT 
PRINT Figure 2—PAUSE TO SEE IT 
—GO BACK TO FIGURE 1 

Teasing out the structure of programs in this way can help you create 
your own programs or modify those other people design. 
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Appendix 
Planning Sheets 

These pages are designed to help you solve some of the problems in this 
book. They consist of a series of TV or monitor screens with room under 
them to write lines of code. They can be used in many different ways and 
some readers will certainly develop their own aids to solve the puzzles. Here 
are two examples of how they can be used for two puzzle versions of this 
simple program: 

10 PRINT "HOW OLD RRE YOU?" 

20 INPUT X 

30 LET Y=1983-X 

40 PRINT "YOU WERE BORN IN ; Y 

Puzzle version Lmissing line of code 

10 PRINT "HOW OLD RRE YOU?" 

20 INPUT X 

30 PRINT "?????????????" 

40 PRINT "YOU WERE BORN IN ";Y 

Puzzle version 2:scrambled line number version 
10 INPUT X 

20 PRINT "HOW OLD RRE YOU?" 

30 PRINT "YOU WERE BORN IN ";Y 
40 LET Y=1983-X 
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SKETCH PAD 

FOR 

CONTROL GRAPHICS 
AND TEKT 
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Graphics Mode 2 
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ATARI® 
PUZZLEMENTS 

Herbert Kohl 


This book of puzzles will make you long for rainy Sunday 
afternoons rather than moan about them! Written for beginners 
(but not without plenty of challenges), ATARI PUZZLEMENTS 
will make you think—and, as an added bonus, it teaches you to 
think in BASIC. Most of the puzzles can also be worked out on 


paper, so you can while away the tedium of airplane trips or 
waiting for the dentist and still sharpen your computer skills. 

Mastering the simple programs so elegantly presented for your 
ATARI Home Computer will provide hours of entertainment for 
the whole family. Even young readers will enjoy experimenting 
with combinations of the programs to come up with unique 
challenges of their own. And, how refreshing to find that your 
solutions don t have to^match an answer key to be exactly, entirely 
correct. 


A Creative Pastimes Book 

RESTON PUBLISHING COMPANY, INC. 

A Prentice-Hall Company 
Reston, Virginia 



illustrations by C. MICHA 

ATARI is a registered trademark of Atari, Inc. 
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